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Tree Met a - ABSTRACT - 29 DliC. 1967 



Oa Tree Meta is a compiler-compiler system for context-^ree 
languages. Parsing statements of the metalanguage resemble 
Backus -Naur Form with embedded tree-building directives. Unparsing 
rules include extensive tree-scanning and code-generation constructs. 
Examples are drawn from algebraic and special-purpose languages, as 
well as the process of bootstrapping the comprehensive, 
self-defining, tree language from a simpler metalanguage. Thorough 
implementation documentation for the Scientific Data System 940 
appears in the discussion of the support subroutines and in the 
appendices. A history of computer metalanguages, a tutorial guide to 
Tree Meta, and the practical usefulness and scope of the system are 
other topics of the report. I. ^'^ ; v 

Ob This is an interim project report and reflects the current status 
of. a portion of a constantly evolving programming system, 

0c Documentation level as of 29 December 1967 is TM1.3. ,newp 
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1 Terras such as "metalanguage" and "metacompiler" have a variety of 
meanings. Their usage within this report, however, is well defined. 

1a "Language," without the prefix "meta," means any formal computer 
language. These are generally languages like ALGOL or FORTRAN. Any 
metalangauge is also a language. 

lb A compiler is a computer program which reads a formal -language 
program as input and translates that program into instructions which 
may be executed by a computer. The term "compiler" also means a 
listing of the instructions of the compiler. 

1c A language which can be used to describe other languages is a 
metalanguage. English is an informal, general metalanguage which can 
describe any formal language. Backus-Naur Form or BNF (NAUR1) is a 
formal metalanguage used to define ALGOL. BNF is weak, for it 
describes only the syntax of ALGOL, and says nothing about the 
semantics or meaning. English, on the other hand, is powerful, yet 
its informality prohibits its translation into computer programs. 

Id A metacompiler, in the most general sense of the term, is a 
program which reads a metalanguage program as input and translates 
that program into a set of instructions. If the input program is a 
complete description of a formal language, the translation is a 
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compiler for the language. 

2 The broad meaning of the word "metacompiler," the strong, divergent 
views of many people in the field, and our restricted use of the word 
necessitate a formal statement of the design standards and scope of Tree 
Meta. 

2a Tree Meta is built to deal with a specific set of languages and 
an even more specific set of users. This project, therefore, adds to 
the ever-increasing problem of the proliferation of machines and 
languages, rather than attempting to reduce it. There is no attempt 
to design universal languages, or machine independent languages, or 
any of the other goals of many compiler- compiler systems. 

2b Compiler-compiler systems may be rated on two almost independent 
features: the syntax they can handle and the features within the 
system which ease the compiler-building process. 

2b 1 Tree Meta is intended to parse context-free laguages using 
limited backup. There is no intent or desire on the part of the 
users to deal with such problems as the FORTRAN "continue" 
statement, the PL/I "enough ends to natch," or the ALGOL "is it 
procedure or is it a variable" question. Tree Meta is only one 
part of a system-building technique. There is flexibility at all 
"levels of the system and the design philosophy has been to take 
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tlie easy way out rather than fight old problems. 

2b2 Many of the features considered necessary for a 
compiler-compiler system are absent in Tree Meta. SucIl. things as 
symbol-tables that handle ALGOL-style blocks and variable types 
are not included. Neither are there features for multidimensional 
subscripts or higher level macros. These features are not present 
because the users have not yet needed them. None, however, would 
be difficult to add. 

2b3 Tree Meta translates directly from a high-level language to 
machine code. This is not for the faint of heart. There is a 
very small number of users (approximately 3); all are 
machine- language coders of about the. same high level of 
proficiency. The nature of the special-purpose languages dealt 
with is such that general formal systems will not work. The data 
structures and operations are too diverse to produce appropriate 
code with current state-of-the-art formal compiling techniques. 

3 There are two classes of formal-definition compiler-writing schemes. 

3a In terms of usage, the productive or synthetic approach to 
language definition is the most common. A productive grammar 
consists primarily of a set of rules which describe a method of 
generating all the possible strings of the language. 
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3b The reductive or analytic technique states a set of rules which 
describe a method of analyzing any string of characters and deciding 
whether that string is in the language. This approach simultaneously 
produces a structure for the input string so that code may be 
compiled. 

3c The metacompilers are a combination of both schemes. They are 
neither purely productive nor purely reductive, but merge both 
techniques- into a. powerful working system. 

4 The metacompiler class of compiler- compiler systems may be 
characterized by a common top-down parsing algorithm and a common 
syntax. These compilers are expressible in their own language, whence 
the prefix "meta." 

4a The following is a formal discussion of top-down parsing 
algorithms. It relies heavily on definitions and formalisms which 
are standard in the literature and may be skipped by the lay reader. 
For a language L, with vocabulary V, nonterminal vocabulary N, 
productions P, and head S, the top-down parse of a string u in L 
starts with S and looks for a sequence of productions such that S=>u 
(S produces u). 

4a1 Let 
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4a2 The following intentionally incomplete ALGOL procedures will 
perform a top-down analysis of strings in L. 



4a2a jj °I e an procedure E; E := ijf T then (if issymbol ('+') 
then E else true) else false; comment issymbol (arg) is a 
Boolean procedure which compares the next symbol in the input 
string with its argument, arg. If there is a match the input 
stream is advanced: 



4a2b booleaT^ £rocedure T; T := if F then (if issymbol (•*•) 
then T else true) else false; 



4&2c boolean £^£££^2^, ^> p ; ~ if. issymbol ('X*)' then truje 
else if issymbol (' (') then (if E then (if issymbol (') ') then 
true else false) else false) else false; 



4a3 The left-recursion problem can readily be seen by a slight 
modification of L e Change the first production to 
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E ::= T / E ♦ T- 
and the procedure for E in the corresponding way to 

^ := i£ ^ then true else jlf E . . . . 

4a3a Parsing the string "X+X", the procedure E will call T, 
which calls F, which tests for "X" and gives the result "true." 
E is then true but only the first element of the string is in 
the analysis, and the parse stops before completion. If the 
input string is not a member of the language, T is false and E 
loops infinitely. 

4a3b The solution to the problem used in Tree Meta is the 
arbitrary number operator. In Tree Meta the first production 
could be 

E ::* T$( ."+» t) 
where the dollar sign and the parentheses indicate that the 
quantity can be repeated any number of times, including 0. 

4a3c Tree Meta makes no check to ensure that the compiler it 

is producing lacks syntax rules containing left recursion. 

. . •. _ * 

This problem is one of the more common mistakes made by 

inexperienced metalanguage programmers. 

4b The input language to the metacompiler closely resembles BNF. 
The primary difference between a BNF rule 
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<go to> ::= go to <label> 
and a metalanguage rule 

GOTO « "CO' 1 "TO" .ID; 
is that tlie metalanguage has been designed to use a computer-oriented 
character set and simply delimited basic entities. The 
arbitrary-number operator and parenthesis construction of the 
metalanguage are lacking in BNF. Tor example: 

TERM * FACTOR $(("*" / '7" / "*") FACTOR); 
is a metalanguage rule that would replace 3 BNF rules. 

4c The ability of the compilers to be expressed in their own 

language lias resulted in the proliferation of metacompiler systems. 

Each one is easily bootstrapped from a more primitive version, and 

complex compilers are built with little programming or debugging 
effort. 

5 The early history of metacompilers is closely tied to the history of 
SIG/PLAN Working Group 1 on Syntax Driven Compilers. The group was 
started in the Los Angles area primarily through the effort of Howard 
Metcalfe (SCUMIDT1), 

5a In the fall of 1962, he designed two compiler-writing 
interpreters '(METCALFE! ). One used a bottom-to- top analysis 
technique based on a method described by Ledley and Wilson (LEDLEY1). 
The other used a top- to-bottom approach based on a work by Gxennie 
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(GLENNIE1) to generate random English sentences from a context-free 
grammar. 

5b At the same time, Val Schorre described two "metamachines"-- one 
generative and one analytic. The generative machine was implemented, 
and produced random algebraic expressions. Schorre implemented Meta 
I, the first metacompiler, on an IBM 1401 at UCLA in January 1963 
(SCH0RRE1). His original interpreters and metamachines were written 
directly in a pseudo-machine language. Meta I, however, was written 
in a higher-level syntax language able to describe its own 
compilation into the pseudo-machine language. Meta I is described in 
an unavailable paper given at the 1963 Colorado ACM conference. 

5c Lee Schmidt at Bolt, Beranek, and Newman wrote a metacompiler in 
March 1963 that utilized a CRT display on the time-sharing PDP-1 
(SCHMIDT2) . This compiler produced actual machine code rather than 
interpretive code and was partially bootstrapped from Meta I. 

6 Schorre bootstrapped Meta II from Meta I during the Spring of 1963 
(SCH0RRE2) . The paper on the refined metacompiler system presented at 
the 1964 Philadelphia ACM conference is the first paper on a 
metacompiler available as a general reference. The syntax and 
implementation technique of Schorre' s system laid the foundation for 
most of the systems that followed. Again the system was implemented on 
a small 1401, and was used to implement a small ALCOL-like language. 
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7 Many similar systems immediately followed, 

7a Roger Rutman of A. C. Sparkplug developed and implemented LOGIK, 
a language for logical design simulation, on the IBM 7090 in January 
1964 (RUTMAN1). This compiler used an algorithm which produced 
efficient code for Boolean expressions. 

7b Another paper in the 1964 ACM proceedings describes Meta III, 
developed by Schneider and Johnson at UCLA for the IBM 7090 
(SCHNEIDER!). Meta III represents an attempt to produce efficient 
machine code for a large class of languages. It was implemented 
completely in assembly language. Two compilers were written in Meta 
III--COD0L, a compiler-writing demonstration compiler, and PUREGOL, 
a dialect of ALGOL 60. (It was pure gall to call it ALGOL). The 
rumored METAFORE, able to compile full ALGOL, has never been 
announced. 

7c Late in 1964, Lee Schmidt bootstrapped a metacompiler from the 
PDP-1 to the Beckman 420 (SCHMIDTS). It was a logic equation 
generating language known as EQGEN. 

8 Since 1964, System Development Corporation has supported a major 
effort in the development of metacompilers. This effort includes 
powerful metacompilers written in LISP which have extensive 

109 



Tree Meta > INTRODUCTION - 29 DEC. 1967 
ti;ee-searching and backup capability (BOOK!) (BOOK2). 

9 An outgrowth of one of the Q-32 systems at SDC is Heta 5 (OPPENHEIM1) 
(SCIIAFFER1) . This system lias been successfully released to a wide 
number of users and has had many string-manipulation applications other 
than compiling. The Meta 5 system incorporates backup of the input 
stream and enough other facilities to parse any context-sensitive 
language. It has many elaborate push-down stacks, attribute setting and 
testing facilities, and output mechanisms. The fact that Meta 5 
successfully translates JOVIAL programs to PL/1 programs clearly 
demonstrates its power and flexibility. 

10 The LOT system was developed during 1966 at Stanford Research 
Institute and was modeled very closely after Meta II (KIRKLEY1). It had 
new special-purpose constructs allowing it to generate a compiler which 
would in turn be able to compile a subset of PL/1 • This system had 
extensive statistic-gathering facilities and was used to study tie 
characteristics of top-down analysis. It also embedded system control, 
normally relegated to control cards, in the metalanguage. 

11 The concept of the metamachine originally put forth by GLENN IE is so 
simple that three hardware versions have been designed and one actually 
implemented. The latter at Washington University in St. Louis. This 
machine was built from macromodular components and has for instructions 
the codes described by Schorre (SCH0RRE2). 
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1 A metaprogram is a set of metalanguages rules. Each rule has the 
form of a BNF rule, with output instructions embedded in the syntactic 
description. 

1a The Tree Meta compiler converts each of the rules to a set of 
instructions for the computer. 

1b As the rules (acting as instructions) compile a program, they 
read an input stream of characters one character at a time. Each new 
character is subjected to a series of tests until an appropriate 
syntactic description is found for that character. The next 
character is then read and the rule testing moves forward through the 
input. 

2 The following four rules illustrate the basic constructs in the 
system. They will be referred to later by the reference numbers R1A 
through R4A. 

.null 

R1A EXP = TERM ("+" EXP / "-"■ EXP / .EMPTY); 

.null 

R2A TERM * FACTOR $ ("*» FACTOR / "/" FACTOR); 

.null 

R3A FACTOR ="-" FACTOR / PRIM; 

.null 
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R4A PRIM « .ID / .NIJM / "(" EXP ")"; 

.null 

2a The identifier to the left of the initial equal sign names the 
rule. This name is used to. refer to the rule from other rules. The 
name of rule R1A is EXP. 

2b The right part of the rule—everything between the initial equal 
sign and the trailing semicolon--is the part of the rule which 
effects the scanning of the input. Five basic types of entities may 
occur in a right part. Each of the entities represents some sort of 
a test which results in setting a general flag to either "true" or 
"false". 

2b1 A string of characters between quotation marks (") represents 
a literal string. These literal strings are tested against the 
input stream as characters are read. 

2b2 Rule names may also occur in a right part. If a rule is 
processing input and a name is reached, the named rule is invoked. 
R3A defines a FACTOR as being either a minus sign followed by a 
FACTOR, or just a PRIM. 

2b3 The right part of the rule FACTOR has just been defined as "a 
string of elements," "or" "another string of elements." The 
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"or's" are indicated by slash marks (/) and each individual string 
is called an alternative. Thus, in the above example, the minus 

sign and the rule name FACTOR are two elements in R3A. These two 

elements make up an alternative of the rule. 

2b4 The dollar sign is the arbitrary number operator in the 
metalanguage. A dollar sign must be followed by a single 
element, and it indicates that this element may occur an arbitrary 
number of times (including zero). Parentheses may be used to 
group a set of elements into a single element as in R1A and R2A. 

2b5 The final basic entities may be seen in rule R4A. These 
represent the basic recognizers of the metacompiler system. A 
basic recognizer is a program in Tree Meta that may be called upon 
to test the input stream for an occurrence of a particular entity. 
In Tree Meta the three recognizers are "identifier" as .ID, 
"number" as .NtJM, and "string" as ,SR. There is another basic 
entity which is treated as a recognizer but does not look for 
anything. It is .EMPTY and it always returns a value of "true." 

3 Suppose that the input stream contains the string X+Y when the rule 
EXP is invoked during a compilation. 

3a EXP first calls rule TERM, which calls FACTOR, which tests for a 
minus sign. This test fails and FACTOR then tests for a plus sign 
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and fails again. Finally FACTOR calls PRIM, which tests for an 
identifier. The character X is an identifier; it is recognized and 
the input stream advances one character. 

3b PRIM returns a value of "true" to FACTOR, which in turn returns 
to TERM. TERM tests for an asterisk and fails. It then tests for a 
slash and fails. The dollar sign in front of the parenthesized group 
in TERM, however, means that the rule has succeeded because TERM has 
found a FACTOR followed by zero occurrences of "asterisk FACTOR" or 
"slash FACTOR." Thus TERM returns a "true" value to EXP. EXP now 
tests for a plus sign and finds it. The input stream advances 
another character. 

3c EXP now calls on itself. All necessary information is saved so 
that the return may be made to the right place. In calling on itself, 
it goes through the sequence just described until it recognizes the 
Y. 

3d Thinking of the rules in this way is confusing and tedious. It 
is best to think of each rule separately. For example: one should 
think of R2A as defining a TERM to be a series of FACTORS separated 
by asterisks and slashes and not attempt to think of all the possible 
things a FACTOR could be. 

4 Tree Meta is different from most metacompiler systems in that it 
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builds a parse tree of the input stream before producing any output. 
Before we describe the syntax of node generation, let us first discuss 

parse trees. 

4a A parse tree is a structural description of the input stream in 
terms of the given grammar. 



4a1 Using the four rules above, the input stream 



.null 
.null 
.null 

.null 
.null 
.null 
.null 
.null 
.null 
.null 
.null 
.null 
.null 
.null 
.null 



X+Y*Z 



has the following parse tree 



EXP 




FACTOR 



PRIM 
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4a2 In this tree each node is either the name of a rule or one of 
the primary entities recognized by the basic recognizer routines. 

4a3 In this tree there is a great deal of subcategorization, For 
example, Y is a PRIM which, is a FACTOR, which is the left member 
of a TERM. This degree of subcategorization is generally 
undesirable. 

4b The tree produced by the metacompiler program is simpler than the 
one above, yet it contains sufficient information to complete the 
compilation. 

4b1 The parse tree actually produced is 
.null . , 
.null ADD 

.null 

.null X "MULT 

.null 
.null Y Z 

4b2 In this tree the names of the nodes are not the rule names of 
the syntactic definitions, but rather the names of rules which 
will be used to generate the code from the tree. 

4b 3 The rules which produce the above tree are the same as the 
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four previous rules with new syntax additions to -perform the 
appropriate node generation. The complete rules are: 

.null 

R1B EXP = TERM ("+" EXP : ADD/ "-" EXP :SU1J) [2] .EMPTY); 

.null 

R2B TERM = FACTOR $(("*" FACTOR :MULT/ '7" FACTOR : DIVD) 

[2]); 

.null 

R3B FACTOR = "-» FACTOR :MINIJS[1] / PRIM; 

.null 

R4B PRIM = .ID / .NUM / "(" EXP ")"; 

4c As these rules scan an input stream, they perform just like the 
first set. As the entities are recognized, however, they are stored 
on a push-down stack until the node-generation elements remove them 
to make trees. We will step through these rules with the same sample 
input stream: 
.null X+Y*Z 

4c1 EXP calls TERM, which calls FACTOR, which calls PRIM, which 
recognizes the X„ The input stream moves forward and the X is put 
on a stack. 

4c2 PRIM returns to FACTOR, which returns to TERM, which returns 
to EXP. The plus sign is recognized and EXP is again called. 
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Again EXP calls TERM, which calls FACTOR, which calls PRIM, which 
recognizes the Y. The input stream is advanced, and Y is put on 
the push-down stack. The stack now contains Y X, and the next 
character on the input stream is the asterisk. 

4c3 PRIM returns to FACTOR, which returns to TERM. The asterisk 
is recognized and the input is advanced another character. 

4c4 The rule TERM now calls FACTOR, which calls PRIM, which 
recognizes the Z, advances the input stream, and puts the Z on the 
push-down stack. 

4c5 The :MULT in now processed. This names the next node to be 
put in the tree. Later we will see that in a complete 
metacompiler program there will be a rule named MULT which will be 
processed when the time comes to produce code from the tree. 
Next, the [2] in the rule TERM is processed. This tells the 
system to construct a portion of a tree. The branch is to have 
two nodes, and they are to be the last two entities recognized 
(they are on the stack). The name of the branch is to be MULT, 
since that was the last name given. The branch is constructed and 
the top two items of the stack are replaced by the new node of the 
tree. 

4c5a The stack now contains 
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.null MULT 

.null X 

4c5b The parse tree is now 
.null 

.null MULT 

.null 
.null Y 

4c5c Notice that the nodes are assembled in a left-to-right 
order, and that the original order of recognition is retained. 

4c6 Rule TERM now returns to EXP which names the next node by 
executing the :ADD, i.e., names the next node for the tree. The 
[2] in rule EXP is now executed. A branch of the tree is 
generated which contains the top two items of the stack and whose 
name is ADD. The top two items of the stack are removed, leaving 
it as it was initially, empty. The tree is now complete, as first 
shown, and all the input has been passed over. 

5 The unparsing rules have two functions: they produce output and they 
test the tree in much the same way as the parsing rules test the input 
stream. This testing of the tree alows the output to be based on the 
deep structure of the input, and hence better output may be produced. 



209 



Tree Meta .- BASIC SYNTAX - 29 DI;C. 1967 

5a Before we discuss the node-testing features, let us first 
describe the various types of output that may be produced. The 
following list of output-generation features in the metacompiler 
system is enough for most examples. 

Sal The output is line-oriented, and the end of a line is 
determined by a carriage return. To instruct the system to 
produce a carriage return, one writes a backslash (upper-case L on 
a Teletype) as an element of an unparse rule. 

Sa2 To make the output more readable, there is a tab feature. To 
put a tab character into the output stream, one writes a comma as 
an element of an output rule. 

5a3 A literal string can be inserted in the output stream by 
merely writing the literal string in the unparse rule. Notice 
that in the unparse rule a literal string becomes output, while in 
the parse rules it becomes an entity to be tested for in the input 
stream. To output a line of code which has L as a label, ADD as 
an operation code, and SYS as an address, one would write the 
following string of elements in an unparse rule: 
.null "L" , "ADD" , "SYS" 

5a4 As can be seen in the last example of a tree, a node of the 
tree may be either the name of an unparse rule, such as ADD, or 
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one of the basic entities recognized during the parse, such as the 
identifier X. 

5a4a Suppose that the expression X*Y*Z lias been parsed and the 
program is in the ADD unparse rule processing the ADD node 
(later we will see how this state is reached). To put the 
identifier X into the output stream, one writes "*1" (meaning 
"the first node below") as an element. For example, to 
generate a line of code with the operation code ADA and the 
operand field X, one would write: 
.null , "ADA", *1 

5a4b To generate the code for the left-hand node of the tree 

one merely mentions M *1" as an element of the unparse rule. 

Caution must be taken to ensure that no' attempt is made to 

append a nonterminal node to the output stream; each node must 

be tested to be sure that it is the right type before it can be 
evaluated or output. 

5a5 Generated labels are handled automatically. As each unparse 
rule is entered, a new set of labels is generated. A label is 
referred to by a number sign (upper-case 3 on a Teletype) followed 
by a number. Every time a label is mentioned during the execution 
of a rule, the label is appended to the output stream. If another 
rule is invoked in the middle of a rule, all the labels are saved 
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and new ones generated. When a return is made the previous labels 
are restored. 

6 As trees are being built during the parse phase, a time comes when it 
is necessary to generate code from the tree. To do this one writes an 
asterisk as an element of a parse rule, for example 
R5B PROGRAM = ".PROGRAM" $ (ST *) ".END"; 

which generates code for each statement after it has been entirely- 
parsed. When the asterisk is executed, control of the program is 
transferred to the rule whose name is the root (top node or last 
generated node) of the tree. When return is finally made to the rule 
whicli initiated the output, the entire tree is cleared and the 
generation process begins anew. 

6a An unparse rule is a rule name followed by a series of output 
rules. Each output rule begins with a test of nodes. The series of 
output rules make up a set of highest-level alternatives. When an 
unparse rule is called the test for the first output rule is made. 
If it is satisfied, the remainder of the alternative is executed; if 
it is false, the next alternative output rule test is made. This 
process continues until either a successful test is made or all the 
alternatives have been tried. If a test is successful, the 
alternative is executed and a return is made from the unparse rule 
with the general flag set "true." If no test is successful, a return 
is made with the general flag "false." 
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6b The simplest test that can be made is the test to ensure that the 
correct number of nodes emanate from the node being processed. The 
ADD rule may begin 
.null A1)D[-,-] => 

The string within the brackets is known as an out- test. The hyphens 
are individual items of the out- test. Each item is a test for a 
node. All that the hyphen requires is that a node be present. The 
name of a rule need not match the name of the node being processed. 

6b1 If one wishes to eliminate the test at the head of the 
out-rule, one may write a slash instead of the bracketed string of 
items. The slash, then, takes the place of the test and is always 
true. Thus, a rule which begins with a slash immediately after 
the rule name may have only one out-rule. The rule 
.null MT / => .EMPTY; 

is frequently used to flag the absence of an optional item in a 
list of items. It may be tested in other unparse rules but it 
itself always sets the general flag true and returns. 

6b2 The nodes emanating from the node being evaluated are 
referred to as *1, *2, etc., counting from left to right. To test 
for equality between nodes, one merely writes *i for some i as 
the desired item in an out-test. For example, to see if node 2 is 
the same as node 1, one could write either [-,*!] or [*2,~]. To 
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see if the third node is the same as the first, one could write 
[-,*2,*1]. In this case, the *2 could be replaced by a hyphen. 

6b3 One may test to see if a node is an element which was 
generated by one of the basic recognizers by mentioning the name 
of the recognizer. Thus to see if the node is an identifier one 
writes .ID; to test for a number one writes .NUM. To test whether 
the first node emanating from the ADD is an identifier and if the 
second node exists, one writes [.ID,-], 

6b4 To check for a literal string on a node one may write a 
string as an item in an out-test. The construct [-,"1"] tests to 
be sure that there are two nodes and that the second node is a 1 . 
The second node will have been recognized by the .NUM basic 
recognizer during the parse phase. 

6b5 A generated label may be inserted into the tree by using it 
in a call to an unparse rule in another imp arse rule. This 
process will be explained later. To see if a node is a previously 
generated label one writes a number sign followed by a number. If 
the node is not a generated label the test fails. If it is a 
generated label the test is successful and the label is associated 
with the number following the number sign. To refer to the label 
in the unparse rule, one writes the number sign followed by the 
number. 
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6b6 Finally, one may test to see if the name matches a specified 
name. Suppose that one had generated a node named STORE. The 
left node emanating from it is the name of a variable and on the 
right is the tree for an expression. An unparse rule may begin as 
follows: 

.null ST0RE[-,ADD[*1,"1"]] => , "MIN " *1 

The *1 as an item of the ADD refers to the left node of the STORE. 
Only a tree such as 

.null 

.null STORE 

.null 

.null 

• null 

.null .ID 




.null 



would satisfy the test, where the two identifiers must be the same 
or the test fails. An expression such as X «~ X + 1 meets all the 
requirements. The code generated (for the SDS 940) would be the 
single instruction MIN X, which increments the cell X by one. 

6c Each out-rule, or highest- level alternative, in an unparse rule 
is also made up of alternatives. These alternatives are separated by 
slashes, as are the alternatives in the parse rules. 
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6c1 The alternatives of the out-rule are called "out-exprs." The 
out-expr may begin 'with a test, or it may begin with instructions 
to output characters. If it begins with a test, the test is made. 
If it fails the next out-expr in the out-rule is tried. If the 
test is successful, control proceeds to the next element of the 
out-expr. When the out-expr is done, a return is made from the 
unparse rule. 

6c2 The test in an out-expr resembles the test for the out-rule. 
There are two types of these tests. 

6c2a Any nonterminal node in the tree may be transferred to by 
its position in the tree rather than its name. For example, *2 
would invoke the second node from the right. This operation 
not only transfers control to the specific node, but it makes 
that node the one from which the next set of nodes tested 
emanate. After control is returned to the position immediately 
following the *2, the general flag is tested. If it is "true" 
the out-expr proceedes to the next element. If it is "false" 
and the *2 is the first element of the out-expr the next 
alternative of the out-expr is tried. If the flag is "false" 
and the *2 is not the first element of the out-expr, a compiler 
error is indicated and the system stops. 

6c2b The other type of test is made by invoking another 
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unparse rule by name and testing the flag on the completion of 
the rule. To call another unparse rule from an out-expr, one 

writes the name of the rule followed by an argument list 

enclosed in brackets. The argument list is a list of nodes in 

the tree. These nodes are put on the node stack, and when the 

call is made the rule being called sees the argument list as 

its set of nodes to analyze. For example: 

.null ADI)[MINUS[-],-] *=> SUB[*2,*1 :*1 ] 

6c2b1 Only nodes and generated labels can be written as 
arguments. Nodes are written as *1 , *2, etc. To reach 
other nodes of the tree one may write such things as *1:*2, 
which means "the second node emanating from the first node 
emanating from the node being evaluated." Referring to the 
tree for the expression X+Y*Z, if ADD is being evaluated, 
*2:*1 is Y. To go up the tree one may write an "uparrow" (t) 
followed by a number before the asterisk-number-colon 
sequence. The uparrow means to go up that many levels 
before the search is made down the tree. If MULT were being 
evaluated, f1*1 would be the X. 

6c2b2 If a generated label is written as an argument, it is 
generated at that time and passed to the called unparse rule 
so that that rule may use it or pass it on to other rules. 
The generated label is written just as it is in an output 
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element--a number sign followed by a number. 

6c3 The calls on other unparse rules may occur anywhere in an 
out-expr. If they occur in a place other than the first element 
they are executed in the same way, except that after the return 
the flag is tested; if it is false a compiler error is indicated. 
This use of extra rules helps in making the output rules more 
concise. 

6c4 The rest of an out-expr is made up of output elements 
appended to the output stream, as discussed above. 

6d Somtimes it is necessary to set the general flag in an out-expr, 
just as it is sometimes necessary in the parse rules. .EMPTY may be 
used as an element in an out-expr at any place. 

6e Out-exprs may be nested, using parantheses, in the same way as 
the alternatives of the parse rules. 

7 There are a few features of Tree Meta which are not essential but do 
make programming easier for the user. 

7a If a literal string is only one character long, one may write an 
apostrophe followed by the character rather than writing a quotation 
mark, the character, and another quotation mark. For example: *S and 
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"S M are interchangeable in either a parse rule or an unparse rule. 

7b As the parse rules proceed through the input stream they may come 
to a point where they are in the middle of a parse alternative and 
there is a failure. This may happen for two reasons: backup is 
necessary to parse the input, or there is a syntax error in the 
input. Backup will not be covered in this introductory chapter. If 
a syntax error occurs the system prints out the line in error with an 
arrow pointing to the character which cannot be parsed. The system 
then stops. To eliminate this, one may write a question mark 
followed by a number followed by a rule name after any test except 
the first in the parse equations. For example: 

.null ST a .ID f - question 2 E EXP question 3 E • ; 

.null question 4 E :ST0RE[2] ; 

Suppose this rule is executing and has called rule EXP, and EXP 
returns with the flag false. Instead of stopping Tree Meta prints 
the line in error, the arrow, and an error comment which contains the 
number 3, and transfers control to the parse rule E. 

7c Comments may be inserted anywhere in a metalanguage program where 
blanks may occur. A comment begins and ends with a percent sign, 
and may contain any character except~~of course, a percent sign. 

7d In addition to the three basic recognizers .ID, . .NIJM and 6 SR, 
there are two others which are occasionally very useful. 
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7d1 The symbol .LET indicates a single letter. It could be 
thought of as a one-character identifier, 

7d2 The symbol .CHR indicates any character. In the parse rules, 
+.CHR causes the next character on the input stream to be taken as 
input regardless of what it is. Leading blanks are not discarded 
as for .ID, .NUM, etc. The character is stored in a special way, 
and hence references to it are not exactly the same as for the 
other basic recognizers. In node testing, if one wishes to check 
for the occurrence of a particular character that was recognized 
by a .CHR, one uses the single quote-character construct. V/hen 
outputting a node item which is a character recognized by a .CHR, 
one adds a :C to the node indicator. For example, *1 :C. 

7e Occasionally some parts of a compilation are very simple and it 
is cumbersome to build a parse tree and then output from it. For this 
reason the abilitby to output directly from parse rules has been 
added. 

7el The syntax for outputting from parse rules is generally the 
same as for unparse rules. The output expression is written 
within square brackets, however. The items from the input stream 
which normally are put in the parse tree may be copied to the 
output stream by referencing them in the output expression. The 
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most recent item recognized is referenced as * or *S(). Items 
recognized previous to that are *S1 , *S2, etc., counting in 

reverse order — that is, counting down from the top of the stack 

they are kept in. 

7e2 Normally the items are removed from the stack and put into 
the tree. However, if they are just copied directly to the output 
stream, they remain in the stack. They are removed by writing an 
ampersand at the end of the parse rule (just before the 
semicolon). This causes all input items added to the stack by that 
rule to be removed. The input stack is thus the same as it was 
when the rule was called. 
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1 When a Tree Meta program is compiled by the metacompiler, a 
machine- language version of the program is generated. However, it is not 
a complete program since several routines are missing. All Tree Meta 
programs have common functions such as reading input, generating output, 
and manipulating stacks. It would be cumbersome to have the 
metacompiler duplicate these routines for each program, so they are 
contained in a library package for all Tree Meta programs. The library 
of routines must be loaded with the machine- language version of the Tree 
Meta program to make it complete. 

la The environment of the Tree Meta program, as it is running, is 
the library of routines plus the various data areas. 

lb This section describes the environment in its three logical 
parts: input, stack organization, and output. 

1b1 This is a description of the current working version, with 
some indications of planned improvements. 

2 Input Machinery 

2a The input stream of text is broken into lines and put into an 
input buffer. Carriage returns in the text are used to determine the 
ends of lines. Any line longer than 80 characters is broken into two 
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lines. This line orientation is necessary for the following: 

2a1 Syntax-error reporting 

2a2 A possible anchor mode (so the compiler can sense the end of 
a line) 

2a3 An interlinear listing option. 

2a4 In the future, characters for the input buffer will be 
obtained from another input buffer of arbitrary block size, but at 
present they are obtained from the system with a Character I/O 
command. 

2b It is the job of routine RLINE to fill the input line buffer. If 
the listing flag is on, RLINE copies the new line to the output file 
(prefixed with a comment character—an asterisk for our assembler). 
It also checks for an End-of-File, and for a multiple blank 
character, which is a system feature built into our text files. 
There is a buffer pointer which indicates which character is to be 
read from the line buffer next, and RLINE resets that pointer to the 
first character of the line. 

2c Input characters for the Tree Meta program are not obtained from 
the input line buffer, but from an input window, which is actually a 
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character ring buffer. Such a buffer is necessary for backup. There 
are three pointers into the input window. A program-character. 

counter (PCC) points to the next character to be read by the program. 

This may be moved back by the program to effect backup. A 

library-character counter (LCC) is never changed except by a library 

routine when a new character is stored in the input window. PCC is 

used to compute the third pointer, the input-window pointer (IWP). 

Actually, PCC and LCC are counters, and only IWP points into the 

array RING which is the character ring buffer. LCC is never backed 

up and always indicates the next position in the window where a new 

character must be obtained from the input line buffer. Backup is 

registered in BACK, and is simply the difference between PCC and LCC. 

BACK is always negative or zero. 

2d There are several routines which deal directly with the input 
window. 

2d1 The routine PUTIN takes the next character from the input 
line buffer and stores it at the input-window position indicated 
by IWP. This involves incrementing the input-buffer pointer, or 
calling RLINE if the buffer is empty. PUTIN does not change IWP. 

2d2 The routine INC is used to put a character into the input 
window. It increases IWP by one by calling a routine, UP IWP, 
which makes IWP wrap around the ring buffer correctly. If there is 
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backup (i.e., if HACK is less than 0), BACK is increased by one 

and INC returns, since the next character is in the window 

already. Otherwise, IXC is increased by one, and PUTIN is called 
to store the new character. 

2d3 A routine called INCS is similar to INC except that it 
deletes all blanks or comments which may be at the current point 
in the input stream. This routine implements the comment and 
blank deletion for .ID, .NIJM, ,SR, and other basic recognizers. 
INCS first calls INC to get the next character and increment IWP. 
From then on, PUTIN is called to store succeeding characters in 
the input window in the same slot. As long as the current 
character (at IWP) is a blank, INCS calls PUTIN to replace it with 
the next character. The nonblank character is then compared with 
a comment character. INCS returns if the comparison fails, but 
otherwise skips to the next comment character. When the end of 
the comment is located, INCS returns to its blank-checking loop. 

2d3a Note that comments do not get into the input window. For 
this reason, BACK should be zero when a comment is found in the 
loop described above, and this provides a good opportunity for 
an error check. 

2d4 Before beginning any input operation, the IWP pointer must be 
reset, since the program may have set PCC back. The routine WPREP 
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computes the value of BACK from PCC-LCC. This value must be 
between and the negative of the window size, IWP is then 

computed from PCC modulo the window size. 

2d5 The program- library interface for inputting items from the 
input stream consists of the routines ID, NUM, SR, LET, and CUR. 
The first four are quite similar. ID is typical of them, and 
works as follows: First MFLAG is set false. WPREP is called to 
set up IWP, then INCS is called to get the first character. If 
the character at IWP is not a letter, ID returns (MFLAG is still 
false); otherwise a loop to input over letter-digits is executed. 
When the letter-digit test fails the flag is set true, and the 
identifier is stored in the string storage area. The class of 
characters is determined by an array (indexed by the character 
itself) of integers indicating the class. Before returning, ID 
calls the routine GOBL which updates PCC to the last character 
read in (which was not part of the identifier). That is, PCC is 
set to LCOBACK-1 . 

2d6 The occurrence of a given literal string in the input stream 
is tested for by calling routine TST. The character count and the 
string follow the call instruction. TST deletes leading blanks and 
inputs characters, comparing them one at a time with the 
characters of the literal string. If at any point the match 
fails, TST returns false. Upon reaching the end of the string, TST 
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sets the flag true, sets PCC to LCOBACK, and returns. In 
addition to TST, there is a simple routine to test for a single 
character string (TCII). It inputs one character (deleting 
blanks), compares it to the given character and returns false, or 
adjusts PCC and returns true. 

3 Stacks and Internal Organization 

3a Three stacks are available to the program. A stack called MSTACK 
is used to hold return locations and generated labels for the 
program's recursive routines. Another stack, called KSTACK, contains 
references to input items. When a basic recognizer is executed, the 
reference to that input item is- pushed into KSTACK. The third stack 
is called NSTACK, and contains the actual tree. The three stacks are 
declared in the Tree Meta program rather than the library: the 
program determines the size of each. 

3al The operation of MSTACK is very simple. At the beginning of 
each routine, the current generated labels and the location that 
the routine was called from are put onto MSTACK. The routine is 
then free to use the generated labels or call other routines. 
The routine ends by restoring the generated labels from MSTACK and 
returning. 

3a2 KSTACK contains single-word entries. Each entry will 
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eventually be placed in NSTACK as a node in the tree. The format 
of the node words is as follows: There are two kinds of nodes, 

terminal and nonterminal. Terminal nodes are references to input 

items. Nonterminal nodes are generated by the parse rules, and 

have names which are names of output rules. 

3a2a A terminal node is a 24-bit word with either a 
string-storage index or a character in the address portion of 
the word, and a flag in the top part of the word. The flag 
indicates which of the basic recognizers (ID, NIJM, SR, LET, or 
CHR) is to read the item from the input stream, .newp 
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3a2b A nonterminal node consists of a word with the address of 
an output rule in the address portion, and a flag in the top 
part which indicates that it is a nonterminal node. A node 
pointer is a word with an NSTACK index in the address and a 
pointer flag in the top part of the word, fiach nonterminal 
node in NSTACK consists of a nonterminal node word followed by 
a word containing the number of subnodes on that node, followed 
by a terminal node word or node pointers for each subnode. For 
example, 

TREE NSTACK 



.null 

• null 
.null 
.null 
.null 

• null 
.null 
.null 
.null 
.null 
.null 
.null 
.null 



KSTACK 



ADD 




3a2c KSTACK contains terminal nodes (input items) and 
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nonterminal node pointers which point to nodes already in 
NSTACK. NSTACK contains nonterminal nodes. 

3b String Storage is another stack-like area. . All the items read 
from the input stream by the basic recognizers (except CHR) are 
stored in the string-storage area (SS) . This consists of a series of 
character strings prefixed by their character counts. An index into 
SS consists of the address of the character count for a string. 
Strings in SS are unique. A routine called STORE will search SS for 
a given string, and enter it if it is not already there, returning 
the SS index of that string. 

3c Other routines perform housekeeping functions like packing and 
unpacking strings, etc. There are three error-message writing 
routines to write the three types of error messages (syntax, system, 
and compiler). The syntax error routine copies the current input 
line to the teletype and gives the line number. A routine called 
FINISH closes the files, writes the number of cells used for each of 
the four stack areas (KSTACK, MSTACK, NSTACK, and SS) , and terminates 
the program. 

3cl At many points in the library routines, parameters are 
checked to see if they are within their bounds. The system error 
routine is called if there is something wrong. This routine 
writes a number indicating what the error is, and terminates the 
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program. In the current version, the numbers correspond to the 
following errors. 

3cla (1) Class codes are illegal 

3c1b (2) Backup too far 

3c1c (64) Character with code greater than 63 in ring buffer 

3c1d (4) Test for string longer than ring size 

3c1e (5) Trying to output a string longer than maximum string 
length 

3d f (6) String-storage overflow 

3d g (7) Illegal character code 

3c1h (8) Trying to store SS element of length zero 

3c1i (11) MSTACK overflow 

3c1j (12) NSTACK overflow 

3c1k (13) KSTACK overflow 
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3d There is a set of routines used by Tree Meta which are not 
actually part of the library, but are loaded with the library for 
Tree -Meta. They are not included in the library since they are not 
necessarily required for every Tree Meta program, but more likely 
only for Tree Meta. They are called "support routines". The 
routines perform short but frequently needed operations and serve to 
increase code density in the metacompiler. Examples of the 
operations are generating labels, saving and restoring labels and 
return addresses on MSTACK, comparing flags in NSTACK, generating 
nodes on NSTACK, etc. 

4 Output Facilities 

4a The output from a Tree Meta program consists of a string of 
characters. In the future it might be a string of bits constituting a 
binary program, but at any rate it can be thought of as a stream of 
data. The output facilities available to the program consist of a set 
of routines to append characters, strings, and numbers to the output 
stream. 

4a1 A string in SS can be written on the output stream by calling 
the routine OUTS with the SS index for that string. OUTS checks 
the SS index and generates a system-error message if it is not 
reasonable. 
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4a2 A literal string of characters is written by calling the 
routine LIT. The literal string follows the call as for TST. 

4a3 A number is written using routine OUTS. The binary 
representation is given, and is written as a signed decimal 
integer. 

4a4 All of the above routines keep track of the number of 
characters written on the output stream (in CHNO) . Based on this 
count, a routine called TAB will output enough spaces to advance 
the current output line to the next tab stop. Tabs are set at 
8-character intervals. The routine CRLF will output a carriage 
return and a line feed and reset CHNO. 

4a5 There are several routines that are convenient for debugging. 
One (WRSS) will print the contents of SS. Another (WRIW) will 
print the contents of the input window. 
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1 This chapter is a formal description of the complete Tree Meta 
language. It is designed as a reference guide. 

1a For clarity, strings which would normally be delimited by 
quotation marks in the metalanguage are capitalized instead, in this 
chapter only. 

lb Certain characters cannot be printed on the report~generating 
output media but are on the teletypes and in the metalanguage--their 
names, preceeded by periods, are used instead* They are 
.exclamation, .question, .pound, .ampersand, .backslash, and 
.percent. 

2 Programs and Rules 

2a Syntax 

2al program * .META .id (.LIST / .empty) size / .CONTINUE Srule 
.END; 

2a2 size - f ( siz .$(♦, siz) •) / .empty; 

2a3 siz = .chr •= .num; 
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2a4 rule = .id (':= ex^f (.ampersand / .empty) / '/ "sO" genl / 
outrul) ' ; ; ■ 



2b Semantics 

2bl A file of symbolic Tree Meta code may be either an original 
main file or a continuation file. A compiler may be composed of 
any number of files but there may be only one main file. 

2b1a The mandatory identifier following the string .META in a 
main file names the rule at which the parse will begin. 

2b1b The optional .LIST, if present, will cause the compiler 
currently being generated to list input when it is compiling a 
program. 

2b1c The size construct sets the allocation parameters for the 
three stacks and string storage used by the Tree Meta library. 
The default sizes are those used by the Tree Meta compiler. M, 
K, N, and S are the only valid characters; the size is 
something which must be determined by experience. The maximum 
number of cells used during each compilation is printed out at 
the end of the compilation. 
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2b2 When a file begins with .CONTINUE, no initialization or 
storage-allocation code is produced. 

2b3 There are three different kinds of rules in a Tree Meta 
program. All three begin with the identifier which names the rule. 

2b3a Parse rules are distinguished by the = following the 
identifier. If all the elements which generate possible nodes 
during the execution of a parse rule are not built into the 
tree, they must be popped from the kstack by writing an 
ampersand immediately before the semicolon. 

2b3b Rules with the string / => following the identifier may 
only be composed of elements which produce output. There is no 
testing of flags within a rule of this type. 

2b3c Unparse rules have a left bracket following the 
identifier. This signals the start of a series of node tests. 

3 Expressions 

3a Syntax 

3al exp » f «- suback ('/ exp / .empty) / subexp (•/ exp / .empty); 
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3a2 suback « ntest (suback / .empty) / stest (suback / .empty); 

3a3 subexp - (ntest / stest) (noback / .empty) ; 

3a4 noback = (ntest / stest ('.question .nura (.id / '.question ) 
/ .empty) ) (noback / .empty); 

3b Semantics 

3b 1 The expressions in parse rules are composed entirely of 
ntest, stest, and error- recovery constructs. The four rules 
above, which define the allowable alternation and concatention of 
the test, are necessary to reduce the instructions executed when 
there is no backup of the input stream. 

3b2 An expression is essentially a series of subexpressions 
separated by slashes. Each subexpression is an alternative of the 
expression. The alternatives are executed in a left-to-right 
order until a successful one is found. The rest of that 
alternative is then executed and the rule returns to the rule 
which invoked it. 

3b3 The subexpressions are series of tests. Only subexpressions 
which begin with a leftarrow are allowed to back up the input 
stream and rescan it. 
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3b3a Without the arrow at the head of a subexpression, any 
test other than the first within the subexpression may be 
followed by an error code. If the error code is absent and the 
stest fails during compilation, the system prints an error 
comment and stops. If the error code is present and the stest 
fails, the system prints the number following the f .question in 
the error code, and if the optional identifier is given the 
system then transfers control to that rule; otherwise it stops. 

3b3b If the test fails, the input stream is restored to the 
position it had when the subexpression began to test the input 
stream and the next alternative is tried. The input stream may 
never be moved back more characters than are in the ring 
buffer. Normally, backup is over identifiers or words and the 
buffer is long enough. 

4 Elements of Parse Rules 

4a Syntax 

4a1 ntest - (•: .id / •[ ( .nurn • ] / genp '] ('.backslash / 
.empty ) / '< genp '> ('.backslash / .empty) / (.CHR / »*) / "=>" 
/ comm; 
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4a2 genp = genpl / .empty; 

4a3 genpl - genp2 (genpl / .empty); 

4a4 genp2 = '* (S .num / .empty) (L / C / N / .empty) / genu; 

4a5 comm = .EMPTY / * .exclamation .sr; 

4a6 stest = * . .id / .id / .sr / •( exp •) / ' \chr / .(.num »$ / 
' $) (.num / .empty) stest / *- (.sr / ♦ '.chr); 

4b Semantics 

4b1 The ntest elements of a parse rule cannot change the value of 
the general flag, and therefore need not be followed by 
flag-checking code in the compiler. 

4bla The : .id construct names the next node to be put into 
the tree. The identifier must be the name of another rule. 

4b1b The [ .num ] constructs a node with the name used in the 
last : .id construct, and puts the number of nodes specified 
after the arrow on the new node in the tree. 

4b1 c The [ genp ] is used to write output into the normal 
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output stream during the parse phase of the compilation. 

4b1d The < genp > is used to print output back on the user 
teletype instead of the normal output stream. This is 
generally used during long compilations to assure the user that 
the system is still up and running correctly. 

4b1e The occurrence of a .chr causes one character to be read 
from the input stream into a special register which may be put 
into the tree just as the terminal symbols recognized by the 
other basic recognizers are. 

4bl f An asterisk causes the rule currently in execution to 
perform a subroutine call to the rule named by the top of the 
tree. 

4b1g Hie "e>" ntest construct causes the injmt stream to be 
moved from its current position past the first occurrence of 
the next stest. This may be used to skip over comments, or to 
move the input to a recognizable point such as a semicolon 
after a syntax error. 

4b2 The comm elements are common to both parse and unparse rules. 

■- • 4b2a The .EMPTY in any rule sets the general flag true. 
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4b2b The .exclamation-string construct is used to insert 
patches into the compiler currently being produced. The string 
following the .exclamation is immediately copied to the output 
stream as a new line. This allows the insertion of any special 
code at any point in a program. 

4b3 Stests always test the input stream for a literal string or 
basic entity. If the entity is found it is removed from the input 
stream and stored in string storage. Its position in string 
storage is saved on a push- down stack so that the entity may later 
be added as a terminal node to the tree. 

4b3a A .id construct provides a standard machine- language 
subroutine call to the identifier. Supplied with the Tree Meta 
library are subroutines for .id, .num, .sr, .chr, and .let 
which check for identifier, number, string, character, and 
letter respectively. 

4b3b An identifier by itself produces a call to the rule with 
the name of the identifier. 

4b.3c A literal string merely tests the input stream for the 
string. If it is found it is discarded. The 
apostrophe-character construct functions like the literal 
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string, except that the test is limited to one character. 

4b3d The number- $-munber construct is the arbitrary-number 
operation of Tree Meta. m$n preceding an element in a parse 
rule means that there must be between m and n occurrences of 
the next element coming up in the input. The default options 
for m and n are zero and infinity respectively. 

4b3e The hyphen-string and hyphen-character constructs test in 
the same way as the literal string and apostrophe-character 
constructs. After the test, however, the flag is complemented 
and the input-stream pointer is never moved forward. This 
permits a test to be sure that something does not occur. 

5 Unparse Rules 

5a Syntax 

5a1 outrul = '[ outr (outrul / .empty); 

5a2 outr - items '] "=>" outexp; 

5a3 items = item (', items / .empty); 

5a4 item = '- / .id '[ outest / nsimp! / '. .id / ,sr / ' ' .chr / 
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' .pound; 



5b Semantics 

5b1 The unparse rules are similar to the parse rules in that they 
test something and return a true or false value in the general 
flag. The difference is that the parse rules test the input 
stream, delete characters from the input stream, and build a tree, 
while the unparse rules test the tree, collapse sections of the 
tree, and write output. 

5b2 There are two levels of alternation in the unparse rules. The 
highest level is not written in the normal style of Tree Meta as a 
series of expressions separated by slashes; rather, it is written 
in a way intended to reflect the matching of nodes and structure 
within the tree. Each unparse rule is a series of these 
highest-level alternations. The tree-matching parts of the 
alternations are tried in sequence until one is found that 
successfully matches the tree. The rest of the alternation is 
then executed. There. may be further test within the alternation, 
but not complete failure as with the parse rules. 

5b3 The syntax for a tree-matching pattern is a left bracket, a 
series of items separated by commas, and a right bracket. The 
items are matched against the branches emanating from the current 
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top node. The matching is done in a left-to-right order. As soon 
as a match fails the next alternation is tried. 



5b4 If no alternation is successful a false value is returned. 

5b5 Each item of an unparse alternation test may be one of five 
different kinds of test. 

5b5a A hyphen is merely a test to be sure that a node is 
there. This sets up appropriate flags and pointers so that the 
node may be refered to later in the unparse expression if the 
complete match is successful. 

5b5b The name of the node may be tested by writing an 
identifer which is the name of a rule. The identifer must then 
be followed by a test on the subnodes. 

5b5c A nonsimple construct, primarily an asterisk-number-colon 
sequence, may be used to test for node equivalence. Note that 
this does not test for complete substructure equivalence, but 
merely to see if the node being tested has the same name as the 
node specified by the construct. 

5b5d The .id, .num, .chr, .let, or .sr checks to see if the 
node is terminal and was put on the tree by a .id recognizer, 
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.man recognizer, etc. during the parse phase. This test is 
very simple, for it merely checks a flag in the upper part a 
word. 

5b5e If a node is a terminal node in the tree, and if it has 
been recognized by one of the basic recognizers in meta, it may 
be tested against a literal string. This is done by writing 
the string as an item. The literal string does not have to be 
put into the tree with a .sr recognizer; it can be any string, 
even one put in with a .let. 

5b5f If the node is terminal and was generated by the .chr 
recognizer it may be matched against another specific character 
by writing the apostrophe-character construct as an item. 

5b5g Finally, the node may be tested to see if it is a 
generated label. The labels may be generated in the unparse 
expressions and then passed down to other unparse rules. The 
test is made writing a .pound-number construct as an item. If 
the node is a generated label, not only is this match 
successful but the label is made available to the elements of 
the unparse expression as the number following the .pound. 

6 Unparse Expressions 
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6a Syntax 

6a1 outexp = subout (*/ outexp / .empty); 

6a2 subout = outt (rest / .empty) / rest; 

6a3 rest a outt (rest / .empty) / gen (rest / .empty); 

6a4 outt - .id '[arglst •] / ' ( outexp •) / nsimpl (»: (S / L / 
N / C) / empty) ; 

6a5 arglst = argmnt (*, arglst / .empty) / .empty; 
6a6 argmnt ~ nsimp / * .pound .num; 
6a7 nsimpl = ' t nsimp / nsimp; 
6a8 nsimp = ' * .num ( ': nsimp / .empty); 
6a9 gen! « (out / comm) (genl / .empty); 
6a10 gen = comm / genu /'</'>; 
6b Semantics 
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6b1 The rest of the unparse rules follow more closely the style 
of the parse rules. Each expression is a series of alternations 
separated by slash marks. 

6b2 Each alternation is a test followed by a series of output 
instructions, calls of other unparse rules, and parenthesized 
expressions. Once an unparse expression has begun executing calls 
on other rules, elements may not fail; if they do a compiler error 
is indicated and the system stops. 

6b3 The first element of the expression is the test. This 
element is a call on another rule, which returns a. true or false 
value. The call is made by writing the name of the rule followed 
by a series of nodes. The nodes are put together to appear as 
part of the tree, and when the call is made the unparse rule 
called views the nodes specified as the current part of the tree, 
and thus the part to match against and process. 

6b3a Two kinds of things may be put in as nodes for the calls. 
The simplest is a generated label. This is done by writing a 
.pound followed by a number. Only the numbers 1 and 2 may be 
used in the current system. If a label has not yet been 
generated one is made up. This label is then put into the 
tree. 
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6b3b Any already constructed node also may be put into the 
tree in this new position. The old node is not removed—rather 

a copy is made. An asterisk-number construct refers to nodes 

in .the same way as the highest-level alternation. 

6b4 This process of making new structures from the 
already-existing tree is a very powerful way of optimizing the 
compiler and condensing the number of rules needed to handle 
compilation. 

6b5 The rest of the unparse expression is made up of output 
commands, and more calls on unparse rules. As noted above, if any 
except the first call of a expression fails a compiler error is 
indicated and the system stops. 

6b6 Just as in the parse rules, brokets may be used to send 
immediate printout to the user Teletype. 

6b7 The asterisk-number-colon construct is used frequently in the 
Tree Meta system. It appears in the node-matching syntax as well 
as in the form of an element in the unparse expressions. When it 
is in an expression it must specify a node which exists in the 
tree. 

6b7a If the node specified is the name of another rule, then 
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control is transferred to that node by the standard subroutine 
linkage. 

6b7b If the node is terminal, then the terminal string 
associated with the node is copied onto the output stream. 

6b7c The simplest form of the construct is an asterisk 
followed by a number, in which case the node is found by 
counting the appropriate number of nodes from left to right. 
This may be followed by a colon-number construct which means to 
go down one level in the tree after performing the 
asterisk-number choice and count over the number of nodes 
specified by the number following the colon. This process may 
be repeated as often as desired, and one may therefore go as 
deep as one wishes. All of this specification may be preceded 
by an t -number construct which- means to go up in the tree, 
through parent nodes, a specified number of times before 
starting down. 

6b7d After the search for the node has been completed, a 
number of different types of output may be specified if the 
node is terminal. There is a compiler error if the node is not 
terminal. 

6b7d1 :s puts out the 'literal string 
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6b7d2 :1 puts out the length of the string as a decimal 
number 

6b7d3 :n puts out the string-storage index pointer if the 
node is a string-storage element; otherwise it puts out the 
decimal code for the node if it is a .chr node. 

6b7d4 :c puts out the character if the node was constructed 
with a .chr recognizer. 

7 Output 

7a Syntax 

7a1 genu = out / * . .id *] ((.id / .num) / .empty) •] / '.pound 
.num (' : / .empty) ; 

7a2 out «= ('.backslash / ♦, / ,sr / ".chr / "+w" / "-w" / ".w" / 
".pound" ; 

7b Semantics 

7b1 The standard primitive output features include the following: 
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7b1a Write a carriage return with a backslash 

7b1b Write a tab with a comma 

7b1c Write a literal string by giving the literal string 

7b1d Write a single character using the apostrophe-character 
construct 

7b1e Write references to temporary storage by using a working 
counter. Three types of action may be performed with the 
counter. +W adds one to the counter and writes the current 
value of the counter onto the output stream. -W subtracts one 
from the counter and does not write anything. .W writes the 
current value without changing it. Finally, .pound W writes the 
maximum value that the counter ever reached during the 
compilation. 

7b2 The .id [ (.num/.id) ] is used to generate a call (940 BRM 
instruction) with a single argument in the A register. It has 
been used mostly as a debugging tool during various bootstrap 
sessions with the system. For example, .CERR[5] generates a call 
to the subroutine CERR with a 5 in the A register. 

7b3 ".pound 2 means "define generated label 2 at this point in the 
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program being compiled," It writes the generated label in the 
output stream followed by an EQIJ *. This construct is added only 

to save space and writing. 
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1 This section of the report is merely the listings of compilers for 
two languages. 

2 The first language, known as SAL for "small algebraic language," is a 
straight forward algebraic ALGOL- like language. 

3 The second example resembles Schorre's META II. This is the original 
metacompiler that was used to bootstrap Tree Meta. It is a one-page 
compiler written in its own language (a subset of Tree Meta). 
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%TREE META SMALL ALGEBRAIC LANGUAGE - 29 SEPTEMBER 1967 % 

.META PROGRAM .LIST 

PROGRAM = ".PROGRAM" DEC * SC DEC *) :STARTNC03 ST * $(•; ST *) 

".FINISH" ?1E :ENDNC03 * FINISH ; 

DEC = ".DECLARE" .ID $( % , .ID SDOC23) '; :DECNC13; 

E = RESET => •; $(ST *) ".END" ?99E :ENDNC03 * FINISH; 

ST = IFST / WHILEST / FORST / GOST / IOST / BLOCK / 

.ID (': :LBLC13 ST : DOC 23 / •- EXP :ST0REC23); 

IFST = ".IF" EXP ".THEN" ST (".ELSE" ST :SIFTEC3D / .EMPTY :SIFTC23); 

WHILEST = ".WHILE" EXP ".DO" ST SWHLC23; 

FORST = ".FOR" VAR »- EXP ".BY" EXP ".TO" EXP ".DO" ST :F0RC53; 

GOST = ".GO" ".TO" .ID :G0C13; 

IOST = ".OPEN" ("INPUT" .ID »C .ID »3 :0PNINPC23 / 

"OUTPUT" .ID '•C .ID '3 :OPNOUTC23) / 

".CLOSE" .ID SCLSFILC13 / 

".READ" .ID 'S IDLIST :BRS38C23 / 

".INPUT" . ID •: IDLIST SXCI0C23 / 

".WRITE" .ID • s WLIST :OUTNUMC23 / 

".OUTPUT" .ID •: ¥LIST :OUTCARC23 ; 
IDLIST = VAR (IDLIST S DOC 23 / .EMPTY); 

VJLIST = (.ID / .NUM / .SR) (WLIST :D0C23 / .EMPTY); 

BLOCK = ".BEGIN" ST $(*; ST SD0C23) ".END"; 

EXP = ".IF" EXP ".THEN" EXP ".ELSE" EXP :AIFC33 / UNION; 

UNION = INTERSECTION ( • \V UNION :0RC23 / .EMPTY); 

INTERSECTION = NEG ( •& INTERSECTION :ANDC23 / .EMPTY); 

NEG = "NOT " NE6NEG / RELATION; 

NEGNEG = "NOT " NEG / RELATION :N0TC13; 

RELATION = SUM(( "<=" SUM :LE / 

"<" SUM ;LT / 
">=" SUM :GE / 
">" SUM JGT / 
"=" SUM SEQ / 
•# SUM ?NE ) C23 / .EMPTY); 
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SUM ~ TERM <C»* SUM : ADD/ •- SUM'. : SUB) C 23/ .EMPTY); 

TERM = FACTOR < < ' * TERM s MULT/ V TERM i DI V I D/ » t TERM !RM ) C 23 / • EMPTY ) % 

FACTOR = »- FACTOR :MINUSC 13 / e + FACTOR / PRIMARY;.. 

PRIMARY = VARIABLE / CONSTANT / • < EXP ' ); - 

VARIABLE = .ID :V ARC 135 

CONSTANT = .NUM SCONC13; 

SIFTEC-j-j-3 => LOPRC*i*#l,#23 BRFC*.1 J »#23 #1#"EQU *"\ *2 SIFTE1C #2* *33 ; 

SIFTEU#1>~3 => *"BRU"*#2\ #1>"EQU *"\ *2 #2> M EQU * M \;. 

SIFTO*~3 => LOPRC*l*#l*#23 BRFE*1*#23 #1*"EQU *"\ *2 #2*"EQU *"\; 

WHLC->-3 => #1*"EQU * ,? \ VHL1C*1*#23 *2 *"BRU"*#1\ #2*"EQU *"\5 

WHLlC-*#23 -> L0PRC*1>#1>#23 BRFC*1* #23 #1* "EQU *"\; 

60C-3 => > W BRU">*1\; 

FORO* ->-*-> -3 => <"DO NOT USE FOR STATEMENTS'^; 

LBLC-3 => *i*"EQU *"; 

AIFC~*~.»~3 => L0PRC*1>#1*#23 BRFC*1*#23 #1#"EQU*"\ ACCC*23 AIF1C#2**33; 

AIFlC#l*-3 => *"BRU"*#2\ #l* n EQU*"\ ACCC*23 #2*"EGU*"\; 

L6pRCORC-.»-3*#l*-3 => LOPRC*l:*l*#l*#23 BRTC* 1:* 1* # 13 

#2*"EQU *"\ L0PRC*1J*2* #1**33 

CANDE-*-3*-*#13 ~> LOPRC*l:*l*#2##13 BRFC*1:* 1* #13 

#2*"EQU *"VLOPRC*l:*2**2*#13 

CN0TC-3>#1>#23 => LOPRC*1:*1*#2j»#13 

C-,-,-3- -> .empty; 

BRTCORC-*-3*#13 -> BRTC*1 :*2* #13 

• CANDC->-3*#13 = > BRTC*1:*2*#13 

CN0TO3W/13 => BRFC*1:*1*#13 

CLEC-*-3*#13 => BLEC*1:*1**1:*2*#13 

• C'LTC-*-3^#13 ~> BLTC*1:*1**1:*2*#13 

CEG.C-*-3j» #13 => BEQC*1:*1**1:*2*#13 

CGEC-*-3>#13 •=> BGEC#1:*1*#1:*2*#13 

C-GTC-*~3WM3 ~> BLEC*l:*2**l:*l*#13 

' CNEC-^-3^#13 => BNEC*l:*l**ls*2* #13 

C->#13 ■ => ACCC*13 *"SKE =0"\ * "BRU"* # 1\; 

BRFCORC-*-3*#13- => BRFC* 1 :*2/# 13 

CANDC-*-3*.#13 => BRFC*U*2*#13 ".- 

CNOTC-3*#13 => BRTC*1:*1*#13 
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CLEC-#-3##13 => 

CLTC~*-3,#13 => 

CEQC-*-3>#13 => 

CGEC-*-3*#13 => 

CGTC->-3*#13 ~> 

CNEC-,-3>#13 => 

C->#13 => 



BLEC*l:*2**l:*l*#13 
BGEC*l:*l**i:*2* #13 
BNEC * 1 : * 1 * * 1 : *2* # 1 3 
BLTC*ls*U*ls*2, #13 
BLEC*1:*1#*1:*2j #13 
BEQC*1:*1**1:*2> #13 
ACCC*13 *"SKA =-l"\ , "BRU"W/1\; 



BLTC-*-.»#13 => 



CT0KENC*13 ACCC*23 
W0RKC*13 ACCC*23 
, "BEU *+2"\ 



*"SKE ,, **1\>"SKG">*1\ / 



* "SKE"*"T+".WV> 
"BRU"##1\; 



'SKG"*"T+ ,, .W-V?\ ) 



BLEC-*-*#13 => 



CT0KENC*23 ACCC* 13 
T0KENC*13 ACCC*23 
W0RKC*23 ACCC* 13 
>"BRU", #1\; 



*"SKG"**2\ / 
> M SKG">*1\>"BRU *+2"\ / 
*"SKG'S M T+ M .l'J-W\ ) 



BEQC~>->#13 = > 



<T0KENC*23 ACCC* 13 
T0KENC*13 ACCC* 23 



*"SKE n **2\ / 
*"SKE"**1\ / 



WORKC*23 ACCC* 13 * "SKE M * M T+ n . ¥-¥\ 
, "BRU *+2"\ *"BRU">#1\J" 



BGEC-*-*#13 => (T0KENC*13 ACCC*23 * 

V0RKC*13 ACCC*23 •» 
*"BRU"*#'1\; 



SKE"j*1\j"SKG"j*1\ / 



SKE" 



'?+"• W\» "SKG", "T+".^-W\ ) 



BNEC-*-* #13 => <TOKENC*23 ACCC* 13 > "SKE"* *2\ / 

T0KENC*13 ACCC*23 > t, SKE">*l\ / 

WORKC *23 ACCC * 13 > " SKE"> W T+' M • W- W\ ) 
*"BRU"*#1\J 

STOREC-,VARC*13 3 = > "*ITS ALREADY THERE"\ 

. C-*ADDCVARC*13jCONC"1"3 3 3 => *"MIN n **l\ 
C->ADDCVARC*!3*-3 3 => ACCC*2:*23 * M ADM"**1\ 
C-*SUBCVARC*13*-33 => ACCC*2:*23 » "CNA; ADM "*1\ 

C-*-3 => BREGC*23 * n STB"**l\ / 

ACCC*23 >"STA"**1\J 
ADDCMINUSC-3*-3 ~> SUBC *2>* 1 :* 13 

C-*-3 ~> TOKENC*23 ACCC* 13 >"ADD".»*2\ / 

. . WORKC* 13 ACCC*23 ,"ADD", "T+". W-WN; 

SUBC-,-3 => TOKENC*23 ACCC*13 * r, SUB",*2\ / 

TOKENC*13 <BREGC*23 * "CBA> CNAl ADD "*1\ /. 
ACCC*23 *"CNAJ ADD "*1\> / 

M)RKC*23 ACCC* 13 , "SUB", "T+". W-W\ ; 

MINUSC-3 ~> TOKENC*13 .»"LDA",*1\ **'CNA"\ / 
'. BREGC*13 >"CBAJ CNA"\ / 
ACCC* 13 *"CNA M \5 



DIVIDC-.J-3 => TOKENC*23 CBREGC*13 ,"CBA"\ / 

ACCC* 13) , "RSH. 23; DIV "*2\ /" 
WORKC *2 3 <BREGC*13 * !8 CBA"\ / 

ACCC* 13) , "RSH 2 3; DIV T+".\v~W\; 
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BRE6CMULTC->-33 => TOKENC * 1 s*23 ACCC*1:*13 * "MUL"**1 : *2"; RSK 1"\ / 

T0KENC*1:*13 ACCC*1:*23 * "MUL"**1 :* 1"; RSH 1"\ / 
W0RKC*l:*13 ACCC*1:*23 ,"MUL"> W T+". W-"W M ; RSK 1 "\ 
CREMC-/-31 => T0KENC*1:*23 CBRE6C*1:*13 * "CBA"\ / 

ACC£*13) >"RSH S3; DIV "*1:*2\ / 
WORKC*l:*23 CBREGC*ls*13 * "CBA"\ / 

ACCC*ls*13) * "RSH 231 DIV T+" 
♦ W-W"; RSH 1"\; 

ACCC-3 => T0KENC*13 *"LDA">*1\ / 
BREGC*13 #"CBA"V / 

*i; 

V70RKC-3 => BREGC*13 > "STB"* "T+"+W\ / 
"ACCC*13 > ,, STA"*"T+ M +W\; 

TOKENCVARCID3 3 => * EMPTY 

CCONCNUM3 3 => .EMPTY; 

MULT / => .empty; 
rem / => .empty; 
and / => .empty; 
or / => .empty; 
not / => .empty; 

ENDN / => "T">"BSS"*tW\- ,"END"\; 
VARCID3 => *i; 
CONCNUM3 => »= *l; 

LE / => .empty; 
lt / => .empty; 
eq / ~> .empty; 
ge / => .empty; 
gt / => .empty; 
ne / -> .empty; 

DOC-* -3 => *1 *2; 

'opninpc-^-3 ~> > "clear; brs is; bru "*2"; brs 16; bru ,f *2"; sta "*i\; 

OPNOUTC-*-3 => * "CLEAR; BRS 2 8; BRU "*2"; LDX ~ 3; BRS 19; BRU " 

*2"; sta "*i\; 






CLSFILC-3 => ,"LDA "* 1"; BRS 20"\; 

BRS38C->.ID3 => >"LDA "*!"; LDB =10; BRS 38; STA "*2\ 
C-,-3 => BRS38C*1>*2:*13 BRS38C*1* *2:*23 J 

XCI0C~*.ID3 => *"CI0 "*1"5 STA "*2\ 

C~>-3 => XCI0C*1**2:*13 XCIOC* 1**2: #23; 

0UTCARO>.ID3 = > * "LDA "*2"; CIO "*1\ 

C-*«NUM3 => *"LDA ="*2"; CIO "*1\ 

C-*«SR3 => *"LDA ="#1"; LDB ="*2sL"; LDX "*1"; BRS 36; BRU "*2\ 

#1,"ASC "• •*2 f "\ 
C->-3 = > 0UTCARC*1,*2:*13 OUTCARC* 1* *2;*235 

0UTNUMt-*»ID3 => >"LDA "*1"5 LDA = 105 BRS 385 M \ 
C-*»NUM3 => *"LDA = "*2"5 CIO "*1\ 
C-*«SR3 => *"LDA ="#1"; LDB ="*2sL"; LDX "*1"; BRS 36; BRU "*2\ 

#1,"ASC "• , *2 I *\ 
C-,-3 => OUTNUMC*l**2:*13 OUTNDMC* 1* *2s *23; 

STARTN / => " START"* "EQU"*"*"\5 

DECNCID3 = > *1*"BSS 1"\ • 

C-3 => DECNC*1:*13 DECNC*l:*23 5 

• END 
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• META 'PROGRM %5% 

PROGRM = ".META" .ID ? 1? <"META II 1.1"> 

C" NOLI ST EXT, NUL5 $ START BRM INITL"3 

t"$KSTKSZ EQU 15 SMSTKSZ EQU 1005SNSTKSZ EQU 15 SSSSIZE EQU 550 M 3 
(".LIST" C*"CLA5 STA LISTFG"3 / •EMPTY.) 
t,"BRM RLINE5 BRM "*"5 BRM FINISH" 3 
(•< SIZ $( *> SIZ) ') ?17E / .EMPTY) 

SST ".END" ?2E 
C"STAR BSS 15SST0P DATA SS+SSSIZE- 5; $SS BSS SSSIZE'M 
C"SMSP DATA MSTK5SMSPT DATA MSTK+MSTKSZ- 55 SMSTK BSS MSTKSZ"3 
C"SNSP DATA NSTK5SNSPT DATA NSTK+NSTKSZ- 55 SNSTK BSS NSTKSZ"3 
C"SKSP DATA KSTK5SKSPT DATA KSTK+KSTKSZ- 5; SKSTK BSS KSTKSZ"3 
C>"END"3 <"DONE">5 

ST = . ID f = ?3E <"ST"> C*,"ZR05 LDA *- 15 BRM CLL"3 

EXP ?4E '5 ?5E C,"BRU RTN"3 5 
EXP = SUBEXP SCV C*"LDA M FLA 65 ' SKE =05 BRU "* 13 

SUB EXP) C*1,"EQU *"3 5 
SUBEXP = (GEN > ELT C,"LDA MFLAG5 SKE =15 BRU "* 13 ) 

SREST C*1* M EQU *"3 5 
REST = GEN / ELT C,"LDA MFLA65 SKE =05 BRU *+4 M 3 

<•? .NUM ?12E C,"LDA = "*"; BRM ERR"3 ' 

(.ID C"BRM",*3/ •? Cf"BRS EXIT"3)?13E/ 
.EMPTY C,"CLA5 BRM ERR5 BRS EXIT"3)5 
ELT = '. . ID ?6E C,"BRM",*"5 STA STAR"3 / 
.ID C,"BRM'%*3/ 

• SR C,"BRM TST5 DATA "*L"5 ASC "••*»'3 / 

• ( EXP ?7E •) ?8E / 

• • .CHR C>"LDA = "*N"5 BRM TCH"3 5 
GEN = 'C SOOT »3 ? 1 OE C > "BRM CRLF"3 / 

•S C*1*"EQU *"3 ELT ?9E 

C,"LDA MFLAG5 SKE =05 BRU "*1"5 MIN MFLAG"3 / 
".EMPTY" C,"LDA =15 STA MFLAG"3 / 

".CHR" C*"BRM WPREP5 BRM INC5 LDA* I¥P5 STA STAR5 MIN NCCP"3 / 
•< .SR ?12E *> ?13E C,"BRM LITT5 DATA "*L"5 ASC "•«*»•"; BRM CRLFT'Z 
"=:>" C*1*"EQU *"3 ELT ? 1 4E 

C,"LDA MFLAG5 SKE =05 BRU *+35 MIN NCCP5 BRU "*13/ 
' ! . SR ? 15E C>*3 5' 
OUT = ..SR C,"BRM LIT5 DATA "*L"5 ASC "••*»»3 / 
S C,"BRM TAB" 3 / 
•* (.NUM C,"LDA =/47B5 CIO FNUM05 MIN CHN05 LDA GN" 

*"5 BRM GENLAB5 STA GN"*"5 BRM 0UTN"3 / 

•L C*"LDA* STAR5 BRM 0UTN"3 / 

*N C*"LDA STAR5 BRM 0UTN"3 / 

•C C*"LDA STAR5 CIO FNUM05 MIN CHN0"3 / 

.EMPTY C*"LDA STAR5 BRM 0UTS"3)/ 
•• .CHR C*"LDA ="*N M 5- CIO FNUM05 MIN CHN0"3/ 
8 Z ' C>"BRM CRLF"3 5 
E = => «; C,"BRU RTN"3 SST ".END" ?11E C,"END"3 FINI SH5 
SIZ = "K=" .NUM C"$KSTKSZ EQU "*3 / 
"M=" .NUM C "SMSTKSZ EQU "*3 / 
"N=" .NUM C"SNSTKSZ EQU "*3 / 
"S=" .NUM C"$SSSIZE E©U'"*35 

. END 



Tree Meta - DETAILED EXAMPLES - 29 DEC 1967 



502 



Tree Meta - CONCLUSIONS and FUTURE PLANS - 29 DEC 1967 



1 Since the work on Tree Meta is still in progress, there are few 
conclusions and plentiful future plans. 

2 (TAKE THIS BRANCH OUT FOR THE ROME REPORT.) This report needs 
extension in two areas, as well as constant updating as the system 
evloves. 

2a Section 5 should be completed. This was intended to be a 
detailed example of a small algebraic-language compiler written in 
Tree Meta. The language is essentially completed, but the 
accompanying explanations are not. 

2b Somewhere within the report there should be a thorough 
discussion of the bootstrap technique of meta. 

3 There are many research projects that could be undertaken to improve 
the Tree Meta system. 

3a Something which has never been done, and which we feel is very 
important, is a complete study of the compiling characteristics of 
top-down analysis techniques, This would include an accurate study of 
where all the time goes during a compilation as well as a study of 
the flow of control during both parse and unparse phases for 
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different kinds of compilers and languages. At the same time it 
would be worthwhile to try to get similiar statistics from other 

compilers. It may be possible to interest some people at Stanford in 

cooperating on this. 

3b SDC has added an intermediate phase to their metacompiler system. 
They call it a bottom-up phase, and it lias the effect of putting. 
various attributes and features on the nodes of the tree. This 
allows one to write simpler and faster node-matching instructions in 
the unparse rules. We would like to investigate this scheme, for it 
appears to hold the potential for allowing the compiler writer to 
conceptualize more complex tree patterns and thus utilize the 
node-matching features to a fuller extent. 

3c Yet another intermediate phase could be added to Tree Meta which 
would do transformations on the tree before the unparse rules produce 
the final code. In attempts to write compilers in Tree Meta to 
compile code for languages with complex data structures (such as 
algebraic languages with matrix operations or string-oriented 
languages with tree operations) and to make these compilers produce 
efficient code, we have found that tree transformations similar to 
those used for natural- language translation allow one to specify 
easily and simply the rules for tree manipulation which permit the 
unparse rules to produce efficient, dense code. Implementation of 
the tree-transformation phase into the Tree Meta system would be an 

602 



Tree Meta - CONCLUSIONS and FUTURE PLANS - 29 D1:C 1967 

extensive research project, but could add a completely new dimension 
to the power of Tree Meta. 

3d There are a series of additions, some very small and some major, 
which we intend to add to Tree Meta during the next year. 

3d1 Other metacompiler systems have had a construct which allows 
nodes to have an arbitrary number of nodes emanating from them. 
This requires additions in parse rules to specify such a search, 
additions in the node-matching syntax, and additions in the output 
syntax to scan and output any number of branches. 

3d2 We have always felt that it would be nice to have the basic 
recognizers such as "identifier*' defined in the metalanguage. 
There have been systems with this feature, but the addition has 
always had very bad effects on the speed of compilation. We feel 
that this new freedom can be added to Tree Meta without having 
telling effects on the compilation speed. 

3d3 The error scheme for unparse rules is rather crude-- the 
compiler just stops. We would like to find a reasonable way of 
accommodating such errors and putting the recovery-procedure 
control in the metalanguage. 

3d4 Currently the unparse rules expand into 6 times as many 
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machine- language instructions as the parse rules. This happens 
because we did not choose the most appropriate set of subroutines 

and common procedures for the unparse rules. Without changing the 

syntax of Tree Meta or the way the stacks work, we feel that we 

can reduce the size of the unparse rules by a factor of 4. This 

would free a considerably larger amount of core storage for stacks 

and enlarge the size of programs which Tree Meta could handle. It 

would also make it run faster in time-sharing mode since less 

would have to be swapped into core to run it. 

3d5 In doing some small tests on the speed of Tree Meta we found 
that better than 80 percent of the compilation time is spent 
outputting strings of characters to the system. The code that 
Tree Meta now produces is the simplest form of assembly code. It 
would be a very simple task to make Tree Meta able to directly 
produce binary code for the loader rather than symbolic code for 
the assembler. A similar change could also be made to output 
absolute code directly into core so that Tree Meta could be used 
as the compiler for systems that do incremental compilation. 

3e Finally, there is the following list of minor additions or 
changes to be made to the Tree Meta system. 

3e1 Make the library output routines do block I/O rather than 
character I/O. This could cut compilation times by more that 70 

604 



Tree Meta - CONCLUSIONS and FUTURI: PLANS - 29 DFX 1967 



percent, 



3e2 Fix Tree Meta So that strings can be put into the tree and 
passed down to other unparse rules. This would allow the unparse 
rules to be more useful as subroutines and thus cut down the 
number of unparse rules needed in a compiler. 

3e3 Finally, we would like to add the ability to associate a set 
of attributes with each terminal entity as it is recognized, to 
test these attributes later, and to add more or change them if 
necessary. To do this we would associate a single 24-bit word 
with the string when it is put into string storage and add syntax 
to the metalanguage to set, reset, and test the bits of the word. 
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• META PR06RM %TREE 1*3% 

PROGRM = (".META" #ID?1? (".LIST" SLISTC03/ .EMPTY :MTC03) SIZE 
:BEGINC33 / 

".CONTINUE" IMTC03 ) <"TREE 1.3"> :SETUPC13 * $C RULE * ) 
".END" ?2E SENDNC03 * <"DONE">; 

SIZE- •( SIZ $(S SIZ :DOC23) •> ? 50E / .EMPTY :MTC03; 

SIZ = .CHR •= ?54.E .NUM ? 55E :SIZSC23; 

RULE = .ID 

C •= EXP ?3E ( '& JKPOPKC 13 / .EMPTY) J0UTPTC23 / 
V "=>» ?3£ GEN1 JSIMPC23 / 
OUTRUL JOUTPTC23) ? 5E •; ? 6E I 

EXP = •- SUBACK ?7E (V EXP ?8E SBALTERC23 / .EMPTY :BALTERC13> / 
SUBEXP ( V EXP ?9E JALTERC23/ .EMPTY); 

SUBACK = NTEST ( SUBACK ; DOC 23 / .EMPTY) / 
STEST (SUBACK :C0NCATC23 / .EMPTY); 

SUBEXP = (NTEST / STEST) CNOBACK SCONCATCS3 / .EMPTY); 

NOBACK = (NTEST / STEST < •? .NUM ? 10E SLOADC13 (.ID / •? :ZROC03> ?11E 
SERCODC33 / .EMPTY t ERE 1 3 ) ) 
(NOBACK % DOC 23 / .EMPTY); 

NTEST = •: .ID ? 12E sNDLBC 13 / 

•C'< .NUM n ? 14E :MKN0DEC13 / 

GENP »3 ?52E CM/. EMPTY SOUTCRC03 s DOC 23) ) / 
■ f < GENP «> ?53E C«t /.EMPTY IOUTCRC03 8 DOC 23) JTTYC13 / 
(".CHR" sGCHR / 
•* IGO) C03 / 
"=>" STEST ?15E :SCANC13 / 

COmm; 

GENP ~ GENP1 / .EMPTY ; MIT. 03 J 

GENP1 = GENP2 (GENP1 : DOC 23 / .EMPTY); 

GENP2 = •* OS .NUM ?51E IPAR0UTC13 / .EMPTY :ZR0C03 SPAR0UTC13) 
(*L SOL / 'C :OCV 'N :0N / . EMPTY. : OS) C 03 ;N0PTC23/ GENU; 

COMM = ".EMPTY" : SETC 03 / 

' ! .SR ? 18E sIMEDC 13; 

STEST = '« .ID ?19E SPRIMC13 / 
.ID SCALLC 13/ 

• SR SSTSTC 13 / 

• ( EXP ?20E •) ?21E / - ■ " 

1 * .CHR SCTSTC 13/ 

(.NUM *S ?23E / ? S SZR0C03) (.NUM /.EMPTY SMTC 03 ) STEST .? 24E SARBC33/ 
•- (.SR XNSRC13 / se .CHR SMCHRC13) ? 26E SNTSTC13J . 



OUTRUL = 'C OUTR ?27E COUTRUL SALTERC23 / .EMPTY) S0SETC13; 

OUTR = OUTEST "=>" ? 29E OUTEXP ? 30E 2 CONCATC 23 ; 

OUTEST = ( C f 3 sMT / "-3" sONE / "-,-3" : TWO / M -*~*-3" :TKRE> C03 / 

ITEMS f 3 ) sCNTCKC 13; 

ITEMS = ITEM (** ITEMS ?32E :ITMSTRC23 / .EMPTY 5LITEMC13) ; 

ITEM = •- :MTC03 / 

• ID "C ?33E OUTEST ? 34E SRITEMC23/ 

NSIMPi SNITEMC13 / 

*. .ID ?35E :FITEMC 13 / 

. SR . :TTSTC 13 / 

,f .CHR SCHTSTC 13 / 

•# .NUM ?37E SGNITEMC13; 

OUTEXP = SUBOUT (7 OUTEXP : ALTER! 23 / .EMPTY); 

SUBOUT = OUTT (REST : CONCATC 23 / .EMPTY) / REST; 

REST = OUTT <REST :OERC23/ .EMPTY) / GEN CREST : DOC 23/ .EMPTY); 

OUTT = .ID «C ?39E ARGLST '3 .?40E S0UTCLLC23 / • < OUTEXP «) ?41E / 
NSIMPI CM C f S SOS./ 'L ;OL / «N : ON/ »C :OC)C03 SN0PTC23 / 
.EMPTY :D0ITC 13); 

ARGLST = ARGMNT SARGC13 C '* ARGLST : DOC 23 7 .EMPTY) / '.EMPTY SMTC03; 

ARGMNT a NSIMP :ARGLDC13 / *# .NUM :GENARGC13; 

NSIMPI = ' - M NSIMP S UPC 23 / NSIMP SLKTC13J 

NSIMP = •* .NUM C«~ • : NSIMP sCHASEC 23 / .EMPTY SLCKASEC13); 

GEN1 = COUT/COMM) CGEN1 : DOC 23 / .EMPTY); 

GEN ~ COMM / GENU / '< 2TTYC03 / 8 > :FILC03; 

GENU = OUT / 

•• .ID ?42E 'C ?43E ((.ID / .NUM) SLOADC13 : CALL C 2 3 / 

• EMPTY JCALLC13) »3 / 
■•# .NUM SGNLBLC13 <•: SDEFC13 / .EMPTY) ; 

OUT = C J \ SOUTCR / ', tOUTAB) C 03 / 
•SR J0UTSRC13 / 
f * .CHR sOUTCHC 13 / 
.-•_. m+u« -UPWRKC03 :0UTWRKC13 / 

"-v; M :dV;Nv;rkco3 / 

"•V?" SMTC03 SOUTWRK / 

•t»w :maxv;rkco3; ' 

E ~ .EMPTY RESET ~> s ; SC RULE * ) ".END" ?99E FINISH; 



%OUT RULES% 

SETUP C-3 = > >"NOLIST NUL,EXT;GEN OPD 101B5*1*1*BF OPD 10SB5*1*1"\ 
- "BT OPD 103B5* 1> i;PSHN OPD 104B5* \» \% PSHK OPD 105B5* \» 1"\ 
"MKND OPD 106B5* 1* 15NDLBL OPD 107B5* 1# i; GET OPD 110B5>1*1"\ 
"BPTR OPD 111B5* 1* 1JBNPTR OPD 1 1 2B5> 1, l; RI 1 OPD U3B5*l/l"\ 
"Rig OPD 114B5*2JFLGT OPD 115B5>l*i;BE OPD 116B5*1>1"\ 
"LAB OPD 117B5*1#1*CE OPD 120B5* 1* 1JLDKA OPD 121B5*1*1"\ 
"SKSTKSZ EQU 100J$MSTKSZ EQU 130;.$NSTKSZ EOU 1300;$SSTKSZ EQU 1400"\ 

*i; 

BEGINC->~.»-3 => "SSTART BRM INITLJ CLA; STA tfRK; STA XVRK"\ *3 *2 
*"BRM RLINE; BRM "*1 M ; BRM FINISH"\; 

LIST / => " CLA; STA LISTFG5"; 

OUTPTC-*-3 => *12S ,"ZRO; LDA *- 15 BRM CLLO"\ *2 , "BRU RTNO"\J 

SIMPC-*-3 => *1 >"ZRO"\ *2 *"BRR "*1\; 

BALTERC-3 => > "BRM SAV"\ *1 , "BRM RSTR"\ 

C-,-3 => ,"BRM SAV"\ *1 *"BRM RSTRJ BT "#1\ *2 # 1 • DC 3 5 

D / => *"EGU *"\; 

ALTERC-*SETC3 3 => *1 *2 

CCONCATC->-3*-3 = >PMTC*1 s* 1* # 13 *ls*2 * "BRU "#2\ #1«DC3 *2 #2*DC3 
C-,«3 => *1 *"BT "#1\ *2 #1«DC3; 

PMTCPRIMC-3*#13 => *"BRM "*ls*lsS"J BF "#1"; MRG "* 1 : * 1 i S"FLG; PSHK =0"\ 
C~*~3 => *V *"BF "#1\5 

ERCALTERC-*SETC3 33 ~> *1 

C-3 => *1 *"BE =-l"\; 

DOC->~3 ~> *1 *2; 

CONCATC-*-3 => *1 *"BF "# 1\ *2 #LDC3l 

LOADCNUM3 => *"LDA ="*1:S\ 

CID3 => *"LDA "*l:S\5 

CALLC-3 = > *"BRM "*1\ 

C-j-3 => *2 *"BRM "*1\; 

MT / => .EMPTY; 

CLA / => "CLA"; 

ZRO / => "0"! 
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ERCODC-j-j-3 = > *! *2 * "BE "*3\5 

NDLBC-3 = > ,"NDLBL ="*1\; 

MKNODEC-3 => *"MKND = "*1\5 

ARBCZROC3>MTC3*-3 => # 1 « DC 3 *3*"BT "#1"5 MIN MFLAG"\ 
CNUM*MTC3*-3 => ARB1C*13 # 1 • DC 3 ' *3 

>"SKR* MSP; BT "#1"5 SKN* MSP5 BRU *+35 BT "#1"5 MIN MFLAG"\ 
. ARB3C3 
C-#«NUM*-3 => ARB1C*23 #1.DC3 *3 

*"SKR* MSP5 BT "#1"5 SKN* MSP"\ ARB2C*1**23 5 

ARB1C-3 => *"BRM SAV5 LDA = "* 1 : S"+ 15 . MIN MSP5 STA* MSP"\5 

ARB2C-,.NUM3 => , "BRU *+45 CLA5 STA MFLAG5 BRU *+45 LDA* MSP5 SKG = "*2 

"-"*1"; MIN MFLAG"\ *ARB3C3 
C-3 = > , "BRU *+35 CLA 5 STA MFLAG"\ .ARB3C3 5 

ARB3 / => *"LDA = -15 ADM MSP5 BRM RSTR"\5 

GCKR /=> ,"BRM V7PREP5 BRM INCJ LDA* IWP5 MRG CHRFLGJ MIN NCCP5 PSHK =0"! 

GOV => >"BRM 0UTREE5 BT *+35 LDA =2; BRM CERR"\5 

SET / => *"LDA =15 STA MFLAG"\5 

TTYC-3 = > TTYC3 *1 FILC3 

C3 = > *"LDA =15 STA FNUMO"\ XCHCBC35 

FILC3 => *"LDA XFNUMQ5 STA FNUMO"\; 

XCHCH/ => *"LDA TCHNO; XMA CHN05 STA TCHN0"\5 

STRINGC-3 => " DATA "*1:L"J ASC" r, *l ,, \; 

OSETC-3 = > j "BRM BEGN"\ *15 

CNTCKC-3 => *1 >"CLB5 SKE NCNT5 STB MFLAG"\; 

ONE / = > ,"LDA =1"\5 

TWO / => #"LDA = 2"\5 

THRE / => *"LDA =3"\5 

ITMSTR C-*-3 => *1 *"MIN CNT5 EAX - 1> 2"\ *25 

LITEM C-3 => *1 ,"MIN CNT5 LDA CNT"\5 

RITEMC->-3 ~> *"RI1 ="*1 M 5 BRU "#1\ *2 >"RI2"\ # 1 • DC 3 5 

0ERC-*-3"=> *1> "CE =1"\ *25 ' . 



OUTCLL C~>-3 => ^"LDA-RSPI STA SNSP; NDLBL ="*1"J CLAJ STA CNT"\ 

/"LDA KTJ STA ME"\ *2 
*"MKND CNT5 PSHN SNSP5 LDX KTI BRM* 0* 2J BRM POPK"\ 
, "LDA* NSP5 STA NSP"\; 

ARGLDOD = > *"LDA ME"\ *15 

ARG C-3 => *1 *"PSHK = 0* MIN CNT"\5 

CHASE C->-3 => *"GET = "*1"; BPTR *+3J LDA =3; BRM CERR"\ *2; 

LCHASE C-3 => *"GET ="*1\; 

DOIT C-3 => *1 >"BNPTR "#1 

"; caxj pshk =o; brm* 0*2* brm popk; bru *+2"\ 

#1.DC3 , "BRM 0UTS"\5 
NOPT C-*-3 => *1 *"BNPTR *+3; LDA = 41 BRM CERR; " *25 
SCAN C-3 => #1.DC3 *1 * "BT *+35 MIN NCCP> BRU M #l\; 
PRIM C-3 => >"BRM "*i"j BF *+35 MR6 "* 1"FLG; PSHK =0"\; 
STST C-3 => >"BRM TSTJ " STRINGC*U5 • « ■ 

CTST C-3 => *"LDA ="*1:N"; BRM TCH"\5 
OS / -> " BRM OUTS"\; 
ON / ~> " ETR =77777BJ BRM OUTN"\; 
OL / => " CAXI LDA 0*21 BRM OUTN"\; 
OC / => " ETR =377B; CIO FNIMOJ MIN CHN0"\J 
GNLBL C-3 => *"6M GNLB"* l\j 

BW C-3 => *1 *"BRM LIT5 DATA 6J ASC *' fSt ' EQU *" ,, \5 
OUTCR / => *"BRM CRLF"\J 
OUTAB / => >"BRM TAB"\; 

OUTSR C-3 => *"BRM LITJ " STRINGC*23J 
OUTCH C-3 => *"LDA = "*1?N S, J CIO FNUMOJ MIN CHNO"\; 

ENDN / => "SSTOP DATA SS+SSTKSZ- 55 SSS BSS SSTKSZ"\ 

"MSP DATA MSTKISMSPT DATA MSTK+MSTKSZ- 55 SMSTK BSS MSTKSZ"\ 

"NSP DATA NSTKISNSPT DATA NSTK+NSTKSZ- 55 SNSTK BSS NSTKSZ"Y 

"KSP DATA KSTKJ SKSPT DATA KSTK+KSTKSZ- 51 SKSTK BSS KSTKSZ"\ 

"VJRK BSS UXlvRK BSS l; END"\; * 

SAVG C-3 ~> *"BRM SAVGN"\ *1 * "BRM RSTGN"\J 



IMED C-3 => ,*1\; • . ■ . 

NITEMC-3 => *"STX INDX5 LDA KT"\ *1 

,"CLB; LDX INDX5 SKE 0*2; STB MFLAG"\5 

FITEMC-3 = > >"FLGT "* 1 J S"FLC"\5 

TTSTC-3 => *"BRM SSTEST; " STRINGC*13 5 

CHTSTC-3 => >"CLB; LDA ="*lsM"5 MRG CHRFLG; SKE 0*2; STB MFLAG"\5 

GNITEMC-3 => *"FLGT GENFLG; ETR = 77777B5 STA GNLB"* 1 : S\; 

GENARGC-3 => * "LAB GNLB"*1:S"; MRG GENFLG"\5 

NTSTC-3 => * M LDA NCCP5 STA SNCCP"\ *1 

>"LDA =15 SKR MFLAG5 BRU * + 25 STA MFLAG5 LDA SNCCP5 STA NCCP"\5 

NCHRC-3 = > *"LDA ="*1:N M ; BRM TCH M \5 

NSRC-3 => *"BRM TST5 "STRINGC* 13 J" 

UPC"1",~3 => >"LDA* KSP"\ *2 

C-*~3 => *"LDX KSP5 LDA 1-"* i ; $", 2"\ *25 

LKTC-3 ~> *"LDA KT"\ *i; 

UPttRK / => *"MIN VJRK; LDA WRK5 SKG XWRK5 LDA XWRK; STA XWRK"\5 
DwNWRK / => , "LDA =-15 ADM VJRK" \ 5 
0imvRKC-3 => *1> "LDA v?RK5 BRM 0UTN"\5 
MAXlvRK / => , "LDA XWRK5 BRM 0UTN"\5 
SIZSC«CHR*~3 => *1;C"STKSZ EQU "*2sS\5 

KP0PKO3 => *"MIN MSP5 LDA KT5 STA* MSPJ WIN MSP5 LDA KSP; STA* MSP"\ 

*1 *"LDX MSP; LDA 0*25 STA KSP5 LDA -1*2; STA KT5 LDA =-25 ADM MSP"\5 

PAROUTCZROC3 3 => >"LDA KT"\ 
C"0"3 ■=> *"LDA KT"\ 
f>3 .=> *"LDKA ="*l\;. 

• END 
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* 
PSHK 


BRM 


SERR 


POPD 


10500000E, 1*1 




LDB 


=77777777B 




SKB* 







LDA* 







MIN 


KSP 




XMA 


KT 




STA* 


KSP 


OVK; 


LDA 


KSP 




SKG 


KSPT 




BRR 







LDA 


= 13 




BRM 


SERR 


* 






MKND 


POPD 


10600000B, i, 1 




LDA* 






MET A 



GENERATE LABEL 



BRANCH FALSE 



BRANCH TRUE 



PUSH THE N STACK- 



PUSH THE K STACK 



MAKE A NODE 



--!-■ 





STA 


MKNDl 






BRU 


MK1 




MK2 


BRM 


POPK 






MIN 


NSP 






STA* 


NSP 




MKl 


SKR 


MKNDl 






BRU 


MK2 






LDA 


MARK 






MR 6 


PTRFLG 






MIN 


KSP 






XMA 


KT 






STA* 


KSP 






LDA* 









MIN 


MARK 






XMA* 


MARK 






STA 


MARK 






BRU 


OVN 




MKNDl 
NDLBL 


BSS 


1 




POPD 


10700000B* 1> 1 


NODE LABEL 




LDA * 









MIN. 


NSP 






STA* 


NSP 






LDA 


NSP 






XMA 


MARK 






MIN 


NSP 






STA* 


NSP 




JK 


BRU 


OVN 




GET 


POPD 
CAX 


1 10000006*1, 1 


GET A NODE- 




ADD 


1*2 






SUB* 









CAX 








LDA 


2>2 






, BRR 







* 








BPTR 


POPD 


1 1 100000B* 1* 1 


BRANCH IF 




LDB 


FLGMSK 






SKM 


PTRFLG 






BRR 









BRU* 


• 




* 








BNPTR 


POPD 


1 12000008,1*1 


BRANCH IF N< 




LDB 


FLGMSK 






SKM 


PTRFLG 






BRU* 









BRR 







* 








RI1 


POPD 


1 13000008*1* 1 


REC ITEM 




LDA 


0*2 






LDE 


FLGMSK 






SKM 


PTRFLG 






BRU 


RIF2 





■K - - 





STX 


RINDX 






LDX 


0*2 






LDA* 









SKE 


0*2 






BRU 


RIF1 






LDA 


CNT 






MIN 


MSP 






STA* 


MSP 






MIN 


MSP 






LDA - 


NCNT 






STA* 


MSP 






MIN 


MSP 






LDA 


RINDX 






STA* 


MSP 






LDA 


MSP 






SKG 


MSPT 






BRU 


* + 3 






LDA 


= 1 1 






BRM 


SERR 






CXA 








BRM 


SETA 






CLA 








STA 


CNT 






MIN 









BRR 







RIF1 


LDX 


RINDX 




RIF2 


CLA 








STA 


MFLA6 






BRR 







RINDX 


BSS 


1 




RICNT 


BSS 


1 




* 








RI2 


POPD 


1 1400000Bj 


>2 




LDA 


= -1 






LDX* 


MSP 






ADM 


MSP 






LDB* 


MSP 






STB 


NCNT 






ADM 


MSP 






LDB* 


MSP 






STE 


CNT 






ADM 


MSP 






BRR 







* 








FLGT 


POPD 


1 15B5> 1*1 






LDA 


0*2 






LDB 


FLGMSK 






SKM* 









BRU 


FLGTF 






BRR 







FLGTF 


CLA 








STA. 


MFLAG 






BRR 








SKIP IF ITEM MATCHES 



REC. ITEM 2 



FLAG TEST 



BE 


POPD 


1 16B5, 1,1 




LDB 


=777777776 




SKB 


MFLAG 




BRR 







LDA* 







SKE 


= -1 




BRU 


*+2 




CLA 






BRM 


ERR 




LDA* 







SKE 







SKG 


=0 




BRS 


EXIT 




BRU* 





* 






LAB 


POPD 


1 17B5,1,1 




LDA* 







SKE 


= 




BRR 







MIN 


GN 




LDA 


GN 




STA* 







BRR 





* 






CE 


POPD 


120B5, 1,1 




LDB 


=77777777B 




SKB 


MFLAG 




BRR 







LDA* 







BRM 


CERR 


* 






LDKA 


POPD 


121B5, 1,1 




LDA 


KSP 




SUB* 







CAX 






LDA 


1,2 




BRR 





* 






*SUES. 






* 






SPOPK 


ZRO 






LDB* 


KSP 




LDA 


= -1 




ADM 


KSP 




CBA 






XMA 


KT 




BRR 


POPK 


5jc 

$SETA 


ZRO 
CAX 


SET X TO 




LDB 


1,2 




ADD 


1,2 




CAX 






STB 


NCNT 



SET X TO TOP OF NODE GROUP, COUNT IN NCNT 



--4-- 



EAX 1,2 
BRR SETA 



SCLLS ZRO 



MIN MSP 

ST A* MSP 

LDA MSP 

SKG MSPT 

BRR CLLS 

LDA =11 

BRM SERR 



* 

SRTNS NOP 



LDA =-1 

LDB* MSP 

ADM MSP 

STB *+2 

BRR *+l 

BSS 1 



* 

$SAV ZRO 



LDA NCCP 

MIN MSP 

STA* MSP 

LDA NSP 

MIN MSP 

STA* MSP 

LDA KSP 

MIN MSP 

STA* MSP 

LDA KT 

MIN MSP 

STA* MSP 

LDA MSP 

SKG MSPT 

BRR SAV 

LDA =11 

BRM SERR 



* 

SRSTR ZRO 



BT RSTT 

LDA =-1 

LDB* MSP 

ADM MSP 

STB KT 

LDB* MSP 

STB KSP 

ADM MSP 

LDB* MSP 
STB ' t<'SP 

ADM MSP 

LDB* MSP 

STB NCCP 





ADM 


MSP 




BRR 


RSTR 


RSTT 


LDA 


= -4 




ADM 


MSP 




BRR 


RSTR 


* 






SOUTREE 


ZRO 




LDA 


KT 




B'NPTR 


OUTERR 




LDX* 


KT 




BRM 


0*2 




BRM 


POPK 




LDA 


=NSTK 




STA 


NSP 




BRR 


OUTREE 


OUT ERR 


LDA 


=2 




BRM 


CERR 


* 






SRESET 


ZRO 






LDA 


= MSTK 




STA 


MSP 




LDA 


= KSTK 




STA 


KSP 




LDA 


=NSTK 




STA 


NSP 




CLA 






STA 


KT 




BRR 


RESET 


* 






SSAVGN 


ZRO 






LDA 


GNLB1 




MIN 


MSP 




STA* 


MSP 




LDA 


GNLB2 




MIN 


MSP 




STA* 


MSP 




CLA 






STA 


GNLB1 




STA 


GNLB2 




LDA 


MSP 




SKG 


MSPT 




BRR 


SAVGN 




LDA 


= 11 




BRM 


SERR 


* 






SRSTGN 


ZRO 






LDA 


= -1 




LDB* 


MSP 




STB 


GNLB2 




ADM 


MSP 




LDB* 


MSP 




STB 


GNLB1 




ADM 


MSP 




BRR 


RSTGN 



■6-' 



* 

SSSTEST ZRO 

MIN SSTEST 

LDA* SSTEST 

STA SSTCNT 

BRM M0D3 

LDB SSTEST 

ADM SSTEST 

STA SSTWDS 

STB SSTPTR 

MIN SSTPTR 

LDA 0*2 

BPTR SSTT1+1 

LDA* 0*2 

SKE SSTCNT 

BRU SSTT1+! 

STX INDX 

LDA > 2 

ADD =1 

LDB SSTPTR 

LDX SSTlvDS 

BRM SK SE 

BRU SSTT1 

LDA CNT 

LDX INDX 

BRR SSTEST 

SSTTl LDX INDX 
CLA 

STA MFLAG 

BRR SSTEST 

SSTPTR BSS 1 

SSTCNT BSS 1 

SSTlvDS BSS 1 

* 

SBEGN ZRO 

LDA s 1 

STA MFLAG 

LDA KT 

BRM SETA 

CLA 

■STA CNT 

BRR BEGN 

* 

SCLLO ZRO 

BRM CLLS 

BRM SAVGN 

BRR CLLO 

* 

SRTNO NOP 

BRM RSTGN 

BRU RTNS 
NOP 

.* 

*CELLS 



~.-7-- 



$ME 

SINDX 

SCNT 

SNCNT 

SSNSP 

$KT 

SSRFLG 



BSS 
BSS 
BSS 
BSS 
BSS 
ESS 
DATA 



SCHRFLG DATA 
SIDFLG DATA 
SNUMFLG DATA 
SPTRFLG DATA. 
SFLGMSK DATA 
SGENFLG DATA 
SMARK BSS 
SGN DATA 
SGNLB1 DATA 
SGNLB2 DATA 
SSAVKT BSS 
SSAVKP BSS 
SLFTFLG DATA 
END 



OB 5 
12B5 

4B5 

6B5 

2B5 

7 7 6B5 

16B5 

1 







1 
1 

14B5 



--0-- 



* ARPAS. LIBRARY FOR 9 40 META II AMD TREE SYSTEMS. 

* PARAMETERS FOR SIZE OF K> M, N STACKS* AND SS AREA* 



GOBL ZRO 




LDA 


MCCP 


ADD 


BACK 


SUB 


= 1 


STA 


NCCP 


BRR 


GOBL 


* 




STORE ZRO 




LDA 


= SS 


STA 


SSP 


LDA 


LEN 


SKE 


= 


BRU 


*+3 


LDA 


= 8 


BRM 


SERR 


LDA 


= STR r 


LDB 


=STEST 


LDX 


LEN 


BRM 


PACK 


SI LDA 


SSL 


SKG 


SSP 


BRU 


SPUT 


LDA 


SSP 


STA 


SX 


LDA* 


SSP 


BRM 


M0D3 


MIN 


SSP 


ADM 


SSP 


LDA* 


SX 


SKE 


LEN 


BRU 


SI 


BRM 


M0D3 


CAX 




LDB 


= STEST 


LDA 


SX 


ADD 


= 1 


BRM 


SKSE 


BRU 


SI 


SST LDA 


SX 


BRR 


STORE 


* 




SPUT LDA 


SSL 


STA 


SX 


LDA 


LEN 


STA* 


O oX-# 


MIN 


SSL 


LDA 


= STR 


LDB 


SSL 


LDX 


LEN 


BRM 


PACK 


LDA 


LEN 


BRM 


M0D3 
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ADM 


SSL 




LDA 


SSL 




SK6 


SSTOP 




BRU 


SST 




LDA 


= 6 




BRU 


SERR 


* 






SSP 


DATA 


SS 


$SSL 


DATA 


ss 


SX 


BSS 


1 


SMXSTF 


I EQU 


80 


STPTR 


BSS 


1 


STR 


BSS 


MX STR 


STEST 


BSS 


MXSTR 


SLISTFG 


DATA 


SRLINE ZRO 






MIN 


LINCNT 




LDA 


EOFLG 




SKE 


= 




BRU 


REOF 




LDA 


= 12B 




SKN 


LISTFG 




CIO 


FNUMO 




LDX 


BUFNO 




BRU 


Rl+1 


Rl 


BRX 


R3 




CIO 


FNUMI 




sm 


LISTFG 




BRU 


R4 


R15 


STA 


IBUF,2 




SKE 


= 155B 




BRU 


R2 




LDA 


= 152B 




SKN 


LISTFG 




CIO 


FNUMO 




BRU 


FILLS 


R2 


SKE 


= 137B 




BRU 


Rl 




LDA 


-I 




STA 


eoflg 


FILL 


CLA 






STA 


IBUF*2 


FILL2 


BRX 


R3 




BRU 


FILL 


R3 


LDA 


BUFNO 




STA 


IBP 




BRR 


RLINE 


REOF 


BRM 


CRLFT 




BRM 


LITT 




DATA 


18 




ASC 


•END 0? 




BRM 


CRLFT 




BRS 


EXIT 


R4 


SKE 


= 152B 



-1 



FILE INPUT* 



.-2-- 





CIO 


FNUMO 




BRU 


R.15 


EOFLG 


DATA 





SINC 


ZRO 






BRM 


UPIV/P 




SKN 


BACK 




BRU 


*+3 




MIN 


BACK 




BRR 


INC 




MIN 


MCCP 




BRM 


PUTIN 




BRR 


INC 


* 






PUTIN 


ZRO 






BRM 


PCHK 




LDX 


IBP 




MIN 


IBP 




LDA 


IBUF*2 




SKE 


= 155B 




BRU 


P2 




BRM 


RLINE 


PI 


CLA 




PI 1 


ST A* 


IV?P 




BRR 


PUTIN 


P2 


SKE 


= 135B 




BRU 


P3 




BRM 


PCHK 




MIN 


IBP 




BRU 


PI 


P3 


SKG 


= 63 




BRU 


Pll 




BRU 


PUTI N+ 1 


* 






PCHK 


ZRO 






LDA 


MXIB 




SKG 


IBP 




BRM 


RLINE " 




BRR 


PCHK 


* 






CHER 


ZRO 






LDX* 


IWP 




LDA 


= 64 




SKG* 


I WP 




BRU 


SERR 




LDX 


CLASS* 2 




CXA 






SKG 


= 5 




SKG 


= 




BRU 


**2 




BRR 


CHER 




LDA 


= 1 




BRU 


SERR 


SWPREP ZRO 






CLA 










STA 


LEN 




LDA 


= STR 




STA 


STPTR 




LDA 


NCCP 




SUB 


MCCP 




STA 


BACK 




SKG 


= 




SKG 


MRSIZ 




BRU 


V/PER 




LDA 


NCCP 




ETR 


MODRSZ 




ADD 


= RING 




STA 


I WP 




BRR 


WPREP 


VJPER 


LDA 


= 2 




BRU 


SERR 


* 






SINCS 


ZRO 




INCS2 


BRM 


IMC 




LDA* 


IWP 




SKE 


= 




. BRU 


*+2 




BRU 


INCS3 




SKE 


CMNT 




BRR 


INCS 




LDA 


= 9 




SKN 


BACK 




BRU 


*+2 




BRM 


SERR 




BRM 


PUTIN 




LDA* 


IWP 




SKE 


CM NT 




BRU 


*-3 


INCS3 


BRM 


PUTIN 




BRU 


INCS2+1 


* 






SID 


ZRO 
CLA 






STA 


MFLAG 




BRM 


WPREP 




BRM 


INCS 




BRM 


CHER 




BRU 


IDTi*2 


ID1 


BRM 


CIC«* 




BRM 


INC 




BRM 


CHER 




BRU 


IDT2*2 


IDF 


LDA 


= 1 




STA 


MFLAG 




£~BRM 


GO BL 




J BRM 


STORE 




S BRR 


ID 


I DTI 


BRU 


STER 




BRR 


ID 



.-4~ 





BRU 


ID1 




BRR 


ID 




BRR 


ID 




BRR 


ID 


IDT2 


■BRU 


STER 




BRU 


IDF 




BRU 


ID1 




BRU 


ID1 




BRU 


IDF 




BRU 


IDF 


* 






CIC 


ZRO 






LDA* 


IWP 




ST A* 


STPTR 




MIN 


STPTR 




MIN 


LEN 




BRR 


CIC 


* 






LEN 


BSS 


1 


* 






UPIVJP 


ZRO 






MIN 


IWP 




LDA 


IWP 




SKG 


MXIW 




BRR 


UP IWP 




LDA 


= RING 




STA 


I VIP 




BRR 


UP IWP 


STOUTS 


ZRO 






STA 


OUTP 




LDA 


*-2 




STA 


OUTS 




LDA 


TELNO 




STA 


LITF 




BRU 


OUTSA 


SO UTS 


ZRO 






STA 


OUTP 




LDA 


FNUMO 




STA 


LITF 


OUTS A 


LDA* 


OUTP 




SKG 


RSIZ 




BRU 


**3 




LDA 


= 5 




BRU 


SERR 




ADM 


CHNO 




CAB 






MIN 


OUTP 




LDA 


OUTP 




ETR 


=777778 




LDX 


LITF 




BRS 


34 




BRR 


OUTS 


* 






OUTP 


BSS 


1 
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# 






SOUTN 


ZRO 






SK6 


= - 1 




BRU 


OUTNN 


OUTNP 


STA 


OUTNB 




LDB 


-10 




LDX 


FNUMO 




BRS 


36 




LDA 


= 1 




SKG 


OUTNB 




BRU 


*+2 




BRR 


OUTN 




MIN 


CHNO 




MUL 


= 10 




RSH 


1 




CBA 






BRU 


*-7 


OUTNN 


MIN 
CNA 


CHNO 




STA 


OUTNB 




LDA 


= 15B 




CIO 


FNUMO 




LDA 


OUTNB 




BRU 


OUTNP* 


OUTNB 


BSS 


1 


* 






s\mss 


NOP 






LDA 


= SS 




STA 


WRSPT 


VRS1 


BRM 


CRLFT 




LDA* 


WRSPT 




STA 


WRSS1 




BRM 


wout 




MIN 


WRSPT 




LDA 


WRSS1 




BRM 


MODS 




LDB 


WRSPT 




ADM 


WRSPT 




LDA 


WRSS1 




XAB 






LDX 


TELNO 




BRS 


34 




LDA 


WRSPT 




SKG 


SSL 




BRU 


wrsi 




BRM ' 


CRLFT 




BRS 


EXIT 


WRSS1 


BSS 


1 


V;RSPT 


BSS 


1 


* 






SCRLFT 


ZRO • 






LDA 


= 1 55B 




CIO 


TELNO 




LDA 


= 152B 
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CIO 


TELNO 




BRR 


CRLFT 


* 






SCRLF 


ZRO 






LDA 


= 155B 




CIO 


FNUMO 




LDA 


= 152B 




CIO 


FNUMO 




LDA 


= 1 




STA 


CHNO 




BRR 


CRLF 


* 






$L I TT 


ZRO 






LDA 


*- 1 




STA 


LIT 




LDA 


TELNO 




STA 


LITF 




MIN 


LIT 




LDA* 


LIT 




BRU 


LITW+3 


* 






SLIT 


ZRO 






LDA 


FNUMO 




STA 


LITF 


LITW 


MIN 


LIT 




LDA* 


LIT 




ADM 


CHNO 




STA 


LIT1 




CAB 






MIN 


LIT 




LDA 


LIT 




ETR 


=777778 




LDX 


LITF 




B'RS 


34 




LDA 


LIT! 




BRM 


MOD3 




SUB 


= 1 




Am 


LIT 




BRR 


LIT 


LITF 


BSS 


1 


LIT1 


BSS 


1 


STABT 


ZRO 






LDA 


*-l 




STA 


TAB 




LDA 


TELNO 




STA 


LITF 




BRU 


TABA 


STAB 


ZRO 






LDA 


FNUMO 




STA 


LITF 


TABA 


LDA 


CHNO 




ADD 


= 10B 




ETR 


=77703 




STA 


TAB 3 






TAB2 


MIN 
CLA 


CHNO 




CIO 


LITF 




LDA 


TAB 3 




.SKE 


CHNO 




BRU 


TAB2 




BRR 


TAB 


TAB 3 


BSS 


1 


SVJRUJ 


NOP 






LDA 


= RING 




ST A 


V;RI 1 


NLIN 


BFM 


CRLFT 




LDA 


BUFNO 




ADD 


= 10 




CAX 




VJRCK 


LDA 


\«?RI 1 




SUB 


MX IV? 




SKG 


= 




BRU 


*+2 




BRS 


EXIT 




LDA* 


VJRI 1 




CIO 


TELNO 




MIN 


WRI 1 




BRX 


NLIN 




BRU 


'WRCK 


\mi 1 


BSS 


1 


SINITL 


ZRO 




AGAIN 


BRM 


CRLFT 




BRM 


LITT 




DATA 


7 




ASC 


•INPUT? • 




CLEAR 






BRS 


15 




BRU 


AGAIN 




STA 


FNUMI 




CBA 






SKE 


= 16B 




BRU 


*+2 




BRU 


AGAIN2 




LDA 


FNUMI 




BRS 


20 




BRU 


AGAIN 


AGAIN2 


BRM 


CRLFT 




BRM 


LITT 




DATA 


8 




ASC 


•OUTPUTS • 




CLEAR 






LDA 


=03000000B 




BRS 


16 




BRU 


AGAIN2 




STA 


FNUMO 




STA 


XFNUMO 


; ' - 


CBA 






SKE 


= 16B 





BRU 


*+2 






BRU 


*+Z] 






LDA 


FNUMO 






BRS 


20 






BRU 


A6AIN2 






BRM 


CRLFT 






BRR 


INITL 




SFNUMO 


BSS 


1 




SFNUMI 


BSS 


1 




SXFNUMO BSS 


1 




STELNO 


DATA 


1 




SCHNO 


DATA 


1 




STCHNO 


DATA 


1 




* A= UN PACK ED 


POINTER* B= PACKED* 


X=LENGTH 


PACK : 


ZRO 








STA 


UPP 






STB 


PP 






STX 


PL EN 




PK1 


BRM 


SKOK 






BRR 


PACK 






LDA* 


UPP 






MIN 


UPP 






STA 


PX 






BRM 


SKOK 






BRU 


PKR1 






LDB* 


UPP 






MIN 


UPP 






LSH 


16 






LDA 


PX 






LSH 


8 






STA 


PX 






BRM 


SKOK 






BRU 


PKR2 






LDB* 


UPP 






MIN 


UPP 






LSH 


16 






LDA 


PX 






LSH 


8 






STA* 


PP 






MIN 


PP 






BRU 


PK1 




* 








SKOK 


ZRO 








SKR 


PL EN 






MIN 


SKOK 






BRR 


SKOK 




* 








PKR1 


LDA 
CLB 


PX 






LSH 


16 






STA* 


PP 






BRR 


PACK 




PKR2 


LDA 
CLB 


PX 
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LSH 


8 




ST A* 


PP 




BRR 


PACK 


* 






UPACK 


ZRO 






STA 


UPP 




STB 


PP 




STX 


PL EN 




SKR 


PLEN 




BRU 


*+2 




BRR 


UPACK 


PK2 


LDA* 


pp 




RSH 


16 




BRM 


PST 




RSH 


8 




BRM 


PST 




BRM 


PST 




MIN 


PP 




BRU 


PK2 


* 






PST 


ZRO 






ETR 


= 377B 




STA* 


UPP 




MIN 


UPP 




LDA* 


PP 




SKR 


PLEN 




BRR 


PST 




BRR 


UPACK 


* 






PX 


BSS 


1 


UPP 


BSS 


1 


pp 


BSS 


1 


PL EN 


BSS 


1 


SKSE 


ZRO 






STA 


PP 




STB 


UPP 




STX 


PLEN 


SKS1 


SKR 


PLEN 




BRU 


*+2 




BRU 


SKST 




LDA* 


PP 




SKE* 


UPP 




BRR 


SKSE 




MIN 


UPP 




MIN 


PP 




BRU 


SKSi 


SKST . 


MIN 


SKSE 


A 


BRR 


SKSE 


SM0D3 


ZRO 






SUB 


= 1 




RSH 


23 




CLA 
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DIV =3 

ADD =1 

BRR M0D3 

IBUF BES 80 

BUFNO DATA 3766 OB 

SIWP DATA RING-1 

IBP DATA 3766 OB 

MX IB DATA 40 00 OB 

MXIW DATA RING+255 

BACK BSS 1 

SNCCP DATA 

MGCP DATA 

RING BSS 2 56 

SEXIT EQU 10 

CLASS DATA 1* 5* 4, 5s 5s 5* 5s 5* 5* 5s 5* 5* 5* 5, 5* 5* 3* 3* 3* 3, 3* 3* 3* 3* 3* 3 

DATA 5* 5* 5* 5* 5* 5* 5* 2s 2* 2s 2s 2s 2» 2s 2» 2s 2s 2* 2s 2s 2» 2» 2s 2* 2* 2 

DATA 2s 2s 2s 2s 2s 2s 2s 5s 5> 5* 5s 5s OsOsO 
SERR ZRO 

STA ERRNO 

BRM CRLFT 

ERM LITT 

DATA 13 

ASC 'SYNTAX ERROR • 

LDA =- 1 

XMA ERRNO 

BRM V?OUT 

BRM L I TT 

DATA 5 

ASC 'LINE • 

LDX TELNO 

LDB =10 

LDA LINCNT 

BRS 36 

BRM CRLFT 

LDX BUFNO 

BRU ERRN+ 1 

MIM ERRNO ' 

CIO TELNO 

BRX ERRF 

CXA 

SKE IBP 

BRU *+ 3 

LDA ERRNO 

STA ERRX 

LDA, IBUF, 2 

SKE' =155B 

BRU ERR1 

BRU ERRF 

ERR1. SKE =152B 

BRU ERR2 

BRU ERRN 

ERR2 SKE =135B 

BRU ERRC 

CIO TELNO 



ERRC 
ERRY 

ERRN 
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ERRNO 
ERRX 
ARROW 
SSERR 



BRX 
LDA 
ARM 
BRU 
ERRF BRM 
CLA 
BRU 
CIO 
SKR 
BRU 
LDA 
CIO 
BRM 
BRR 

BSS 

BSS 

DATA 

NOP 

STA 

LDA 

LDB 

BRU 

SCERR NOP 
STA 
LDA 
LDB 

SERR1 LDX 
BRS 
LDA 
LDB 
LDX 
BRS 
BRM 
BRS 

SEM ASC 

CWi ASC 

SE1 BSS 

*. 

RSIZ DATA 

MRSIZ DATA 

MODRSZ 

SMFLAG BSS 

CMNT DATA 

SLINCNT 

* 



SWOUT 



ZRO 
LDB 
LDX 
BRS 
LDA 
CIO 
CLA 
CIO 



ERRF 
IBUF, 2 
ERRNO 
ERRY 
CRLFT 

*+2 

TELNO 

ERRX 

*~2 

ARROW 

TELNO 

CRLFT 

ERR 

1 
1 

7 6B 

SEi 
= SEM 
= 13 

SERR1 

SEI 

=cem 

= 15 

TELNO 

34 

SEI 

= 10 

TEl.NO 

36 

CRLFT 

EXIT 

•SYSTEM ERROR 8 

'COMPILER ERROR * 

1 

256 

-2 56 

DATA 377B 

1 
5 

DATA 



= 10 

TELNO 

36 

= 14B 
TELNO 

■TELNO 
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BRR W UT 



* 






$TST 


ZRO 
CLA 






STA 


MFLA6 




MIN 


TST 




BRM 


WPREP 




BRM 


INCS 




LDA* 


TST 




SKG 


RSIZ 




BRU 


*+3 




LDA 


= 4 




BRU 


SERR 




STA 


TST2 




BRM 


M0D3 




LDB 


TST 




ADM 


TST 




CBA 






ADD 


= 1 




CAB 






LDA 


= STEST 




LDX 


TST2 




STA 


TST1 




BRM 


UPACK 




SKR 


TST2 




BRU 


TSTS1 




BRR 


TST 


TSTS 


BRM 


INC 




MIN 


TST1 


TSTS1 


LDA* 


TST1 




SKE* 


IWP 




BRR 


TST 




SKR 


TST2 




BRU 


TSTS 




LDA 


MCCP 




ADD 


BACK 




STA 


NCCP 




LDA 


= 1 




STA 


MFLAG 




BRR 


TST 


TST1 


BSS 


1 


TST2 


BSS 


1 


* 






* 






SSR 


ZRO 
CLA 






STA 


MFLAG 




BRM 


VJPREP 




BRM 


INCS 




BRM 


CHER 




BRU 


STTU2 


STR1 


BRM 


CIC - 




BRM 


INC 




BRM 


CHER 
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BRU 


STT2* 2 


STR2 


BRM 


GOBL 




MIN 


NCCP 




LDA 


= 1 




■STA 


MFLAG 




BRM 


STORE 




BRR 


SR 


* 






STT1 


BRU 


STER 




BRR 


SR 




BRR 


SR 




BRR 


SR 




BRU 


STR1+1 




BRR 


SR 


STT2 


BRU 


STER 




BRU 


STR1 




BRU 


STR1 




BRU 


STR1 




BRU 


STR2 




BRU 


STR1 


* 






STER 


LDA 


= 7 




BRU 


SERR 


# 






SNUM 


ZRO 
CLA 






STA 


MFLAG 




BRM 


ViPREP 




BRM 


INCS 




BRM 


CHER 




BRU 


NT1*2 


NM1 


BRM 


CIC 




BRM 


INC 




BRM 


CHER 




BRU 


NT2*2 


NMF 


LDA 


= 1 




STA 


MFLAG 




BRM 


GOBL 




BRM 


STORE 




BRR 


N'UM 


* 






NT I 


BRU 


STER 




BRR 


NUM 




BRR 


NUM 




BRU 


NM1 




BRR 


NUM 




BRR 


NUM 


NT2 


BRU 


STER 




BRU 


NMF 




BRU 


NMF 




BRU 


NM 1 




BRU 


NMF 




BRU 


NMF 


SLET 


ZRO 





DON'T COPY QUOTE 
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LETS 



LET1 



CLA 




STA 


MFLAG 


BRM 


WPREP 


BRM 


INCS 


■BRM 


CHER 


BRU 


LET1*2 


BRM 


CIC 


LDA 


= 1 


STA 


MFLAG 


B.RM 


GOBL 


MIN 


NCCP 


BRM 


STORE 


BRR 


LET 


BRU 


STER 


BRR 


LET 


BRU 


LETS 


BRR 


LET 


BRR 


LET 


BRR 


LET 



* 






* 






* 






SFINISH NOP 






LDA 


= 137B 




CIO 


FN HMO 




CIO 


FNUMO 




CIO 


FNUMO 




CIO 


FNUMO 




CIO 


FNUMO 




LDA 


FNUMO 




BRS 


20 




BRU 


LIMITS 


.* 






$TCH 


ZRO 






STA 


TCH1 




CLA 






STA 


MFLAG 




BRM 


\vPREP 




BRM 


INCS 




LDA* 


IWP 




SKE 


TCH1 




BRR 


TCH 




MIN 


MFLAG 




LDA 


MCCP 




ADD 


BACK 




STA 


NCCP 




BRR 


TCH 


TCH1 


BSS 


1 


* 






TOP 


MACRO 


D 




LDA 


DC D.SPT 




STA 


DC 1>.SP. 




LDA 


= - 1 . 




ADM 


DC D.SP 
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LDA* 


DC 1).SP 


SKE 


= 


BRU 


*+2 


BRU 


*-5 


LDA 


DC D.SP 


SUB 


= .DC 1>.STK 


SK6 


= 


CLA 




BRM 


WOUT 


EN DM 




* 




SLIM ITS BRM 


CRLFT 


BRM 


LITT 


DATA 


5 


ASC 


•USED e 


TOP 


K 


TOP 


M 


TOP 


tt 


LDA 


SSL 


SUB 


= SS 


BHM 


ttOUT 


BRM 


CRLFT 


BRS 


EXIT 


END 





